.J X. 
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4 

6 

•y 

8 
••i 

10 

11 
I? 
1? 
14 
IS 
16 
1 * 
18 
19 
^0 
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REM 6 



IDENTIFICATION 



PRODUCT CODE: AC T783A-MC 



PROOUCT NAME; CZ T KIA0 TK?5 DATA RELIABILITY TEST 



PROOUCT DATE; 15 - MARCH - 1984 



MAINTAINER; 



AUTHOR: 



MAGTAPE DIAGNOSTIC ENGINEERING 



ROBERT F. WERY/JACK RICHARDSON/ TERRENCE REILLt 



SEQ 0001 



2b 

y * 

28 
£9 

JO 
31 
12 
M 
54 
3b 
36 
3^ 
*H 
39 
40 
41 

4a 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULO NOV BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT CO 1984 By DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATIONS 

MAS5BUS 



DIGITAL 
DEC 



POP 
DECUh 



UN I BUS 
DEC TAPE 



CI 
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SEQ 0002 

44 

45 

46 

47 USER'S GUIDE 

48 

49 

50 1.0 GENERAL INFORMATION 

51 1.1 PROGRAM ABSTRACT 

52 1.1.1 FUNCTIONAL DESCRIPTION 

53 1,1,2 STRUCTURE O r PROGRAM 

54 1.1.3 MEMORY MAP 

55 1,1.4 DIAGNOSTIC INFORMATION 

56 1,1,4.1 SCOPE 

5? 1.1.4,2 ERROR RECOVERY 

58 1.1.4.3 WRITE ERROR RECOVERY 

59 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE ERROR 

60 RECOVERY ALGORITHM 

61 1.1,4.3.2 OPERATIONAL WRITE -ERROR -RECOVERY ALGORITHM 

62 1.1,4.4 EARLY WARNING WRITE ERRORS 

63 1.1.4.5 DIAGNOSTIC TIMING ADJUSTMENT 

64 1.2 SYSTEM REQUIREMENTS 

65 1.2.1 HARDWARE REQUIREMENTS 

66 1,2.2 SOFTWARE REQUIREMENTS 

67 1,3 RELATED DOCUMENTS AND STANDARDS 

66 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

69 1,5 rASSJMPTIONS 

70 1.6 DIAGNOSTIC HISTORY 

7 1 2.0 OPERATING INSTRUCTIONS 

72 2.1 HARDWARE PARAMETERS 

73 2,2 SOFTWARE PARAMETERS 

74 2.2.1 CLEAR COUNTERS 

7 5 2,2.2 RESET RANDOM VARIABLES 

76 2.2.3 PRINT SOFT ERRORS 

77 2.2.4 INHIBIT RECOVERY 

?» 2.2.5 BAD TAPE SPOT DETECTION 

79 2.2.6 DISABLE INTERRUPTS 

80 2.2.7 INHIBIT RFC ERROR REPORTS 

81 2,2.8 CONTROLLER RAM DUMP 

82 2.2.9 ENABLE EARLY WARNING MESSAGES 

83 2.2.10 CHANGE CMD SEQUENCE 

84 2.2.11 COMMANO LIST FOR USE IN SOFTWARE DIALOGUE. 

85 2.2,12 OATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE 
p 6 2.3 EXAMPLES OF SOFTWARE DIALOGUE 

87 2.3.1 BASIC FACTION AND DATA RELIABILITY WITH ALL 

88 ERROR REPORTING ENABLED 

8^ 2.3.2 TO SFT UP A SCOPE LOOP FOR a FAILURE IN BASIC 

9 ° FUNCTIONS. 

*\ 2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA 

**2 RELIABILITY 

9 '' 2.4 EXECUTION TIMES 

94 2.4.1 SYSTEM CONFIGURATION 

q 5 2.4.2 TEST EXECUTION TIMES 

*'6 3.0 £KROR INFORMATION 

W 5a ERROR REPORT INU 
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99 

100 
101 
102 
103 
104 
105 
106 
107 
103 

109 

110 

111 
112 

113 
114 
US 
116 
117 
118 
119 
120 

1C1 
122 
123 
124 
125 
126 
1?7 
126 
129 
i.30 
131 
132 
133 
134 
135 
136 
13/ 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14/ 
148 
144 
IbG 
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SEQ 0003 



3.1.1 

3,1,2 
3.1.3 
3.1.1 
3.1.5 
3.1.5.1 

3.1.5,2 

3.1.5.3 

3.1.5,4 

3.1.5.5 

3.1.5.6 

3.1.5.7 

3. 1.5. a 



1.6 
1.7 

1.8 
1.9 
1.10 



ERROR 1 - COMMAND PACKET ADDRESS NOT ON A 

MODULO 4 BOUNORY: 

ERROR 2 - TK25 NOT READY: 

ERROR 3 - NO RESPONSE ERROS: 

ERROR 4 - NO INTERRUPT ERROR: 

SPECIAL CONDITION ERRORS: 

ERROR 5 - TERMINATION CLASS CODE 0, UNDEFINED 

SPECIAL CONDITION 

ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION 

CONDITION 

ERROR 7 - TERMINATION CLASS CODE 2, TAPE 

STATUS ALERT 

ERROR 8 - TERMINATION CLASS CODE 3. FUNCTION 

REJECT 

ERROR 9 - TERMINATION CLASS CODE 4 t 

RECOVERABLE ERROR 

ERROR 10 - TERMINATION CLASS CODE 5, 

RECOVERABLE ERROR 

ERROR 11 * TERMINATION CLASS CODE 6, 

LNRECQVERABLE ERROR 

ERROR 12 - TERMINATION CLASS CODE 7, FATAL 

SUBSYSTEM ERROR 



RFC NON-ZERO ERROR: 
RETRY LIMIT EXCEEDED 
TOO MANY INTERRUPTS: 
CAPSTAN RUNAWAY: 
DATA COMPARE ERROR: 



3.2 

4.0 
5.0 
5.1 
5.2 
5.3 
5.4 
5.5 
5,6 

u.O 
6.1 
6.2 

6,3 



6 
6 
6 
6 
6 
6 
6 



3.1 

3.2 

3.2.1 

3.2.2 

3.5 

3.4 

3.5 



6*3*6 



LRROR 13 

ERROR 14 

ERROR 15 

ERROR 16 

ERROR 17 
ERROR HALTS 
PERFORMANCE REPORT 
TEST SUtlARIES 

TEST 1 - BASIC FUNCTIONS. 
TEST 2 - DATA RELIABILITY. 
TEST 3 - WRITE AND READ STREAMING TEST. 
TEST 4 - WRITE COMPATABIL IT Y /WRITE UTILITY 
TEST 5 - READ COMPATABILI TY/READ UTILITY. 
TEST 6 - EXECUTE OPERATOR SELECTED COMMAND 
SEQUENCE, 
DEVICE INFORMATION TABLES 
GENERAL 

BUS INTERFACE SPECIFICATIONS 
BIT DEFINITIONS FOR TK25 REGISTERS 

TK25 REGISTER SUMMARY 

TK25 STATUS REGISTER (TSSR) 
TSSR READ ONLY 
TSSR WRITE ONLY 

EXTENDED STATUS REGISTER CXSTATC) 

EXTENDED STATUS REGISTER 1 (XSTAT.) 

EXTENDED STATUS REGISTER 2 (XSTA.2) 

EXTENDED STATUS REGISTER 3 (XSMT3) 
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152 
15.3 

154 

155 

156 

15? 

158 

150 

160 

161 

16? 

163 

lt>4 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

160 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

20? 

203 

204 

205 

206 
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SEQ 0004 



GLOSSARY 

ACT 
APT 

BYTE/RECORD/FILE COUNT 
BRF 

CMO 

COMMAND PACKET 
CMOPKT 

EXTENDED STATUS 



MESSAGE PACKET 

PC 

PSW 

RESIDUAL FRAME COUNT 
RFC 



SPECIAL CONDITION 
SPEC COND 

TERMINATION CLASS CODE 
TCC 

TSBA 

TSDB 

TSSR 

XSTO 

XST1 

xsi2 



AUTOMATED COMPUTER TEST SYSTEM 
AUTOMATED PRODUCT TEST SYSTEM 

IS STORED IN THE 4TH WORD OF THE COMMAND PACKET 
AND IT'S USE BY THE TK25 DEPENDS ON THE TYPE OF 
COMMAND. 

TK25 COMMAND 

FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE TK25 TO 
EXECUTE A COMMAND. 

FOUR WORDS OF TK25 STATUS WHICH ARE TRANSFERRED 
AS PART OF THE MESSAGE PACKET AT THE COMPLETION 
OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO WHICH 
THE TK25 STORES STATUS AT THE COMPLETION OF A 
COMMAND , 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET ANO 

CONTAINS THE NUMBER OF BYTES/RECORDS/FILES 

REMAINING TO BE PROCESSED AT THE COMPLETION OF A 
COMMAND . 

TSS4 BIT15, WHEN SET. INOICATES THAT THE LAST 
COMMAND DID NOT COMPLETE WITHOUT INCIDENT. 

THREE BIT CODE IN THE TSSR WHICH INDICATES THE 
THE TYPE OF COMMANO TERMINATION. 

TAPE SYSTFM BUS ADDRESS REGISTER. 

TAPE SYSTt-i DATA BUFFER REGISTER, 

TAPE SYSTEM "TATttC FFGISTER. 

EXTENDED r T<V '.'. HT-ISTER 

EXTENOEU ' '•' .-''■ 'J! MSTER 1 

EXTENDED STATUS REGISTER 2 
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008 
009 
010 
Oil 
010 
01? 
214 
01S 
016 
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XXDP* 



f: 



x 



SEQ 0005 



EXTENOED STATUS REGISTER 3 

XXDP* IS A "CATCH-ALL" NAME FOR A GROUP OF 
PDP-11 DIAGNOSTIC PACKAGES AVAILABLE ON 
MULTIMEDIA. 
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SEQ 0006 



218 
219 
220 

221 

.723 

224 
225 

226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 

23 7 
238 
239 
240 
241 
242 

24 3 
244 
245 

247 

er a 

249 

250 

rr>i 

25? 

253 
254 

255 
256 

25 7 
258 
259 
260 
261 

2:»2 

2b 3 
264 
265 
266 

26 / 
268 
269 
2/D 
2/i 
2"c> 



1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1,1 FJNCiIO Mrt L DESCRIPTION - 

THIS TROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA 
RELIAHILITY TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE 
OF OPERATOR SELECTED COMMANDS. 



1.1.2 STRUCTURE OF" PROGRAM - 

THIS DIAGNOSTIC IS A SINGLE PROGRAM FROM THE STANDPOINT OF THE 
DIAGNOSTIC USER, BUT IT USES A CONTROL MODULE RELEASED 
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR, 



1.1.3 MEMORY MAP - 





400 

2000 

32000 
41000 

72000 

77777 



VECTOR 
AREA 



STACK 



DIAGNOSTIC 



FREE MEMORY 



DIAGNOSTIC 
SUPERVISOR 



XXDP 



FREE MEMO^i SPACE FOR THE WRITE/READ BUFFERS IS ALLOCATED B> THE 
SUPERVISOR ON REQUEST OR CHOSEN BY THE PROGRAMMER TO RESIDE 
BETWEEN THE DIAGNOSTIC AND THE SUPERVISOR. 
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274 

2 75 

276 

277 
278 

279 
280 
281 
28? 
283 
284 
285 
286 
28 7 
288 
289 
290 
291 
292 
293 
2 l >4 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
30 t 
308 
309 
310 
ML 
31 c ^ 
313 
314 
315 
316 
31/ 
318 
319 
320 
321 
322 
323 
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HI 



SEQ 0007 



1.1,4 DIAGNOSTIC INFORMATION - 



1,1.4,1 SCOPE - 



THIS DIAGNOSTIC CAN TEST UP TO FOUR (4) UNITS IN A ROUND ROBIN 
FASHION. THE FOUR UNITS ARE ASSIGNED LOGICAL UNIT NUMBERS - 3 
BY THE DIAGNOSTIC. 

THERE ARE 6 TESTS IN THIS PROGRAM: 



TEST 

TEST 
TEST 
TEST 
TEST 
TEST 



1 - BASIC FUNCTIONS. 

2 - DATA RELIABILITY. 

3 - WRITE AND R2AD STREAMING TEST. 

4 - URITE COMPATABILITY/WRITE UTILITY. 

5 - READ COrtPATABILITY/READ UTILITY. 

6 - OPERATOR SELECTED SEQUENCE UTILITY. 



1.1.4.2 ERROR RECOVERY - 

ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. THE READ 
FORWARD/READ REVERSE RETRY LIMIT IS 16 '.& IN THE SAME DIRECTION 
AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR 
RECOVERY PROCEDURES, SEE SECTION 3,0 (ERROR INFORMATION). 



1.1.4.3 WRITE ERROR RCCOVERY - 

THERE ARE 2 DISTINCT, SELECTABLE WRITE ERROR -RECOVERY ALGORITHMS: 

1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 

2. OPERATIONAL ALGORITHM 

BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 

TO SELECT THE SECOND ALGORITHM; 



ANSWER ■ r TO 
ANSWER N* TO 



CHANGE SW (L) ? 

BAD TAPE SPOT DETECTION (L) Y > 



3>4 
525 



WHEN fcRROR RECOVERY IS INHIBITFO, THF LATTER QUESTION IS NOT 
ASKfcD AND BOTH ALGORITHMS ARE BYPASSED* 
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327 
328 
329 
330 
331 
33? 
333 
334 
335 
336 

33 7 
338 
339 
340 
341 
342 
343 
344 
345 
3*6 

34 7 
348 
349 
350 
351 
35? 
353 
354 
355 
356 

35 7 
358 
359 
360 
361 
36? 
363 
364 
365 
366 
367 
368 
369 
370 
371 
3/2 
3/3 
3/4 
3/5 
3/6 
3 7 7 
378 



II 
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1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE ERROR 
ALGORITHM - 

SCOPE 



RECOVERY 



THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
OPERATIONAL ONES. 

ALGORITHM 

A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR 
SUBROUTINE UPON DETECTION Of A RECOVERABLE WRITE ERROR. THE 
WRITE RETRY SUBROUTINE REWRITES THE RECORD IN THE SAME SPOT ON 
TAPE FOUR TIMES. IF ALL 4 REPEATS ARE GOOD, THE RECORD IS 
CONSIDERED RECOVERED AND A RECOVERABLE WRITE ERROR IS LOGGED AT 
THAT RECORD NUMBER. 

IF ANY OF THE 4 REPEATS FAIL, THE BAD RECORD IS ERASED, SUSPECTED 
BAD SPOT AT THAT RECORD NUMBER IS LOGGED, AND THE RECORD IS 
RETRIED AGAIN 3 INCHES FURTHER DOWN TAPE. THIS IS DONE UP TO 4 
TIMES, UP 10 4 REPEATS EACH. IF THE RECORD CANNOT OE WRITTEN 
WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES. THE RECORD IS ERASED 
ANO A BAD SPOT DETECTED ON RETRY FAILURE IS REPORTED. THf 
RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WHIM. 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIED UNTIL 
THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGFD. 



TWO HONORED FIFTY (250) 
PER PASS. WHEN 250 
CONSIDERED DEFECTIVE. 
PRIN'.ED MX) THE UNIT IS 



BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE 
BAD SPOTS HAVE BEEN LOGGED. THE 1 APE IS 
A BAO TAPE OVERFLOW MESSAGE WILL BE 
REWOUNO. THEN DROPPED. 



DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL 
TAPE POSITION OPERATIONS. IF A POSITION ERROR STATUS IS DETECTED 
DURING THOSE OPERATIONS. THEN THE RECOVERY ATTEMPT IS ABORTEO AND 
AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED. THE UNIT 
IS THEN DRO D PED. 

RECORDS WHICH WERE NOT WRITTEN WITHOUT ERROR WILL BE ERASED. 
THIS IS SU THM ALL RECORDS LcFT ON TAPE ARE GOOD WRITTEN 



RECORDS. BAD SPOn ARE ERASED, WITH ERASE 
INCHES PER RETRY UHOU\ 



:;aps from 3 to 12 



IF NO BAD SPOTS U;.Rt PREVIOUSLY DtTECT^D, UP TO 20 FELT OF ERASE 

GAP COULD RESULT WHEN RETRYING TO RECOVER P. SINGLE RECORD. THAT 

LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 BAD SPOTS 
AT THE SAME RECORD NUMBER. 

BAD SPOTS REPORT 3 



SEQ 0008 
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Jl 



380 
381 
38.? 

383 IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE RAD SPOTS ON 

384 TAPE ARE IDENTIFIED AS THEY ARE OETECTrt). SINCE THE BAD RECORDS 

385 ARE ERASED UNTIL RECOVERED, THE 6/\C SPOTS ACTUALLY PRECEDE THE 

386 RECORD NUMBER THAT IDENTIFTES THEM. THE NUMBER OF REPEATS AND 
38? RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE LENGTH 0" ERASE GAPS 
388 CAN BE DETERMINED (APPROXIMATELY 3 INCHES PER RETRY). 

389 

3W THE STATISTICAL REPORT PRINTED AT THE END 0? TEST 2 OR UPON A 

391 "PRINT" REQUEST, CONTAINS A SUMMARY OF THE BAD SPJTS LOL'GLD ON 

393 THE CURRENT TAPE PASS. IN THAT REPORT, ALL COUNTS ARE CUMULATIVE 

393 FROM PASS TO PASS. EXCEPT FOR THE NUMBER OF BAD SPOTS : IT 

394 RELATES TO A "TAPE PASS" ONLY. FOR THIS PURPOSE, A "TAPE PASS" 

395 IS A WRITE PASS FROM BOT TO EOT, OR FROM BOT TO WHERE THE 

396 DIAGNOSTIC IS HALTED BEFORE REACHING EOT. A PASS IS DEFINED UY 

397 THE SUPERVISOR AS A RUN THROUGH ALL THE TESTS REQUESTED ON ALL 

398 UNITS SELECTED. THESE PASSES ARE IDENTIFIED AS "PAS?" AND "EOP". 
399 

400 THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A 

401 GLOBAL COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN 

402 CALLED. 
403 

404 THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 

405 ANO REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST, PER 

406 TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
40? NUMBER OF RECOVERABLE WRITE ERRORS ANO BAD SPOTS. 

408 

409 TO CLEAR CUMULATIVE COUNTS, ANSWER 'Y' TO: CLEA3 COUNTERS (L) Y 

410 ?, THE BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT. 
411 

412 IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD 

413 COUNT IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT 

414 RESET COUNT. 
415 

416 SINCE ALL WRITTEN RECORDS ULTIMATELY ARE KNOWN TO BE GOOD. THE 

41? READ ERRORS CAN BE ATTRIBUTED TO TRANSIFNT NOISE, TRANSIENT 

41B ELECTRICAL MALFUNCTIONS, OR CONTAMINANTS ON TAPE AS OPPOSED TO 

419 TAPE DEFECTS. 
420 

4?1 THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS FOR 

422 THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 



SEQ 0009 



Kl 
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424 
425 

426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
4 72 
4 73 
4 74 
475 
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SEQ 0010 



EXAMPLE OF A TAPE PASS PRINT: 

C2TKIA SFT ERR 000C9 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT CMO FAILED - UNIT PASS: 1 RECORD: 6 
PREVIOUS CMO WAS WRT 



CMDPKT 

100205 

026600 

000000 

003107 

XSTO 

000350 



TSBA 
002406 



RFC 
000000 



TSSR 
100210 



TCC 
4 



XST1 XST2 
000002 100400 
SUSPECT BAD SPOT AFTER 1 
SUSPECT BAO SPOT AFTER 2 
SUSPECT BAD SPOT AFTER 3 
SUSPECT BAD SPOT AFTER 4 
RETRY FAILED ON OAD ^OT 
SUSPECT BAD SPOT AFTER 1 



XST3 

000000 
RETRY 
RETRY 
RETRY 
RETRY 



REPEAT 
REPEAT 
REPEAT 
REPEAT 



..ERASED! 
RETRY, 1 REPEAT 



CZTKIA SFT ERR 00009 ON UNIT 
RECOVERABLE ERROR 
WRT CMO FAILED - UNIT PASS: 
PREVIOUS CMO WAS WRT 



00 TST 002 SUB 000 PC: 012100 



RECORD: 10210 



CMDPKT 


TSBA 


RFC 


TSSR TCC 




100205 


002406 


000000 


100210 4 




026600 










000000 










004000 










XSTO 


XST1 


XST2 


XST3 




000350 


000002 


100010 


000000 




RECOVERED ON RETRY 1 






tC 










DR>PRI 










UNIT 


PASS: 


1 RECORD: 10210 




BYTES WRITTEN 


0,272, 


,279,691 




BYTES READ REV 


0.301, 


,123,654 




BYTES READ REV 


0,301, 


,120,381 










WRT RDR 


RDF 


RECOVERABLE ERRORS 


1 





UNRECOVERABLE ERRORS 








WRITE RETRIES 




3 





2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD <>i 
6 6 
SPEC CONO HARD FATAL COMPARE 
2 

DR> 



LI 
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477 

4 78 

479 

480 

481 

48? 

485 

484 

485 

486 

48/' 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

52 7 

528 

529 

530 
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SEQ 0011 



THIS EXAMPLE SHOWS THA^ RECORD S RECOVERED ON 2ND RETRY GROUP 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 
AND 6. RECORD 10i:10 RECOVERED ON 1ST RETRY Of 4 GOOD REPEATS. 
THREE WRITE GROUP RETRIES WERE ATTEMPTED, RESULTING IN ONE 
RECOVERABLE WRITE ERROR FROM RECORD 10210 AND TWO BAD SPOTS 
BETWEEN RECORDS 5 AND 6. 



1.1.4.3.2 OPERATIONAL WRITE -ERROR -RECOVERY ALGORITHM •• 

WHEN THIS ALGORITHM " > SELECTED, THt: TK25 WRITE RETRY COMMAND IS 
ISSUED UP TO 16 TIKIS OR UNTIL THE RECORD IS RECOVERED. THE 
WRITE RETRY COMMAND CONSIST.' OF ,. .iPACE REVERSE OVER THE BAD 
RECORD, AN ERASE OF 3 INCHf.:, OF TAPE AND A REWRITE OF THE RECORD. 
THAT COMPOSITE COMMAND DOES ,40T DETECT BAD SPOTS ON TAPE. 
THEREFORE NO 3AD TAPE SPOTS STfTUS IS PRINTED. 

IF A RECORD CANNOT iVr. RECOVERED AFTER 16 WRITE RETRY COMMANDS, A 
RETRY LIMIT EXCEEDED ERROR IS FLAGGED AND THE UNIT IS DROPPED. 



1.1.4.4 EARLY WAF.Vilte W&ITE ERRORS - 

SINCE THE TKi>5 DPIV* *'* C0RD5 IN A SC.RPENTINE MANNER, THE TAPE 
CARTRIDGE HAS Pi^S'xOAu MARKERS AT EACH END OF THE TAPE. THJ TK25 
CONTROLLER WILL NO* fl LOW THt I'RITING CF DATA OVER THE AREA OF 
THESE "EARLY WAHK."* "" MARKERS. THEREFORE, WHEN AN ATTEMPT IS 
MADE TO WRITE DATA A'» 'HE END OF 1 HACK , A WRITE ERROR STATUS 
(TCC4) IS RETURNED WIj'1 THE EARL\ IMRNING CEW) BIT SET. 

WHEN A WRITE ERROR OCOJF * ANT) THE EARLY WARNING BIT IS SET IN 

XSTAT1, THE ERROR JS 'rHIE'D IF ERROR RECOVERY IS ENABLED. THE 

ONLY METHOD OF RETRY U."F: ) '• OK EARLY WARNING WRITE ERRORS IS TO 

SET THE RETRY MODIFIER Oh .HE ORIGINAL COMMAND AND TO REISSUE IT. 

IN ADDITION. EARLY WARNING WRITE ERRORS ARE NOT COUNTED IN ANY 
ERROR TALLIES. 



1.1.4.5 DIAGNOSTIC TIMING ADJUSTMENT - 

A NUM8ER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
TO COMPLETE. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPAND 
INTO INLINE NESTED LOOP?, THE COUNT FOR THE OUTER LOOP COMES 
FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. THI: 
COUNT r R THE INNER LOOP COMES FROM THE FIXED "HEADER" ELEMF.NT 
"LiDLY". AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE 
DELAYS WILL VARY IN LENGTH WITH MEMORY SPEED* 
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Sua 0012 

532 

534 

535 IF TIME -CI T OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE UNIT 

536 ARE EVIDENT, THE TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED, THIS 

537 IS ACCOMPLISHED BY PATCHING THE FIXED DELAY ELEMENT "L$DLY". 
538 

539 

540 

541 1.2 SYSTEM PEQUIREMl I ITS 

542 

543 1.2.1 HARDWARE REQl/.i' EfiENTS •• 

544 

545 PDP-11 PROCK : .S.iR WITH 16K OR MORE OF MEMORY 

546 

547 CONSOLE DEVICE ( LA36.LA120. VT100.ETC. ) 

548 

549 PROGRAM LOAD DEVICE 

550 

551 ij<25 DRIVE AND CONTROLLER 

552 

553 

554 

555 

556 1.2.2 SOFTWARE REQUIREMENTS - 

557 

558 DIAGNOSTIC SUPERVISOR 

559 

560 

561 
562 

563 1,3 RELATED DOCUMENTS AND STANDARDS 

564 

565 

566 XXDP* USERS MANUAL MD-11-CHQUS 

567 

568 PDP-11 DIAGNOSTT SUPERVISOR INTERFACE SPECIFICATION 

569 

570 PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE 

572 Tt<25 PROGRAMING SPECIFICATION 

573 

574 TK25 COMMAND PACKET SPECIFICATION 

576 
57/ 

578 

579 l, t 4 DIAGNOSTIC HIERARCHY PREREQUISITES 

580 
581 

582 ORDER OF HOST CPU DIAGNOSTIC USAGE: 

583 

584 11 FRONT END FUNCTIONAL PROGRAM - ALL TESTS. 

585 

5S6 2) DATA RELIABILITY PROGRAM; 



Nl 
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588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

6i5 

616 

617 

618 

619 

620 

6-U 

622 

623 

624 

625 

626 

62 7 

628 

629 

630 

631 

632 

633 

63a 

63S 

636 

637 

638 

H59 

640 

641 

642 
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SEQ 0013 



A) 
B) 



BASIC FUNCTION TEST. 
DATA RELIABILITY TEST. 



1,5 ASSUMPTIONS 

THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUt- ., TO 
BE WORKING PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE 
PROCESSOR. MEMORY, ETC., DOES NOT FUNCTION PROPERLY. 



ORIGINAL RELEASE 



1.6 DIAGNOSTIC HISTORY 

REVISION A - 15 -MAR -84 

2.0 OPERATING INSTRUCTIONS 

FOR OPERATING INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXDP* 
OPERATOR'S MANUAL. 



2.1 HARDWARE PARAMETLrtS 

ON A "N" RESPONSE TO "CHANGE HW?", THE 
ASSUMING THAT THERE IS ONE UNIT AT TSSR 
224. 



DIAGNOSTIC SHALL RUN 
172522 WITH A VECTOR = 



ON A "Y" RESPONSE TO "CHANGE HW?" QUESTION, THEN THE FOLLOWING 
QUESTIONS WILL B'£ ASKED ON A START COMMAND. THE VALUE LOCATED TO 
THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT WILL BE 
TAKEN ON A CARRIAGE RETURN RESPONCE. 

TSSR ADDRESS C 172522) ? 

VECTOR (224) ? 

THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING 
THE TESTS BY SETTING THE FLAG "ADR" ON A STA, RES OR CON COMMAND. 
THE SO CALLED "AUTO DROP" CGDE SHALL THEN BE EXECUTED AFTER THE 
INIT CODE AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST 
TESTS THE ADDRESS OF THE TSSRCS). IF THERE IS L'O RESPONSE, IT 
DROPS THE UNITCS) IMMEDIATELY WITH THF FOLLOWING MESSAGE; 

BUS TRAP AT XXXXXX ( XXXXXX - TSSR AD ) 

INTERFACE BAD OR NOT SET TO ABOVE AD. 
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t«44 

*45 
64t^ 

64 7 ON A RESPONSE FROM THE INTERFACE, THE 'NITb TliAT ARF (JOT READY OR 

648 NOT ON-LINE ARE DROPPED IMMEDIATELY, TitE J-JARDWARE TESTS SHALL 

64<* 1HEN BE RUN ON THE RESPONDING UNITS. 

650 

651 IF THE "ADR" FLAG IS NOT SET, THE READY ANO OFF-LINE STATUS OF 

*52 THE UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

«»55 TO WARN THE OPERATOR OF UNITS THAT ARE NOT READY OR OFF LINE. 

654 THESE UNITS SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 

c>55 

656 

65* 

658 2.2 SOFTWARE PARAMETERS 

659 

660 THE FOLLOWING QO.STIONS ARE ASKED IF REQUESTED ON A START, 

661 RESTART, OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE 

662 PROGRAM BEHAVES, 
665 

664 CLEAR COUNTERS CD Y ? 

665 

666 RESET RANDOM VARIABLES (L) N ? 

66 7 

666 HALT AFTER EACH CMD (L) N ? 

669 

670 PRINT SOFT ERRORS CD N ? 

671 

6?2 INHIBIT RECOVERY CD N ? 

675 

674 BAD TAPE SPOT DETECT CD Y ? 

675 

6'6 DISABLE INTERRUPTS CD N ? 

677 

678 INHIBIT RFC ERROR REPORTS CD N ? 

679 

680 CONTROL! FR RAM DUMP CD N ? 

681 

682 ENABLE EARLY WARNING MESSAGES CD N ? 

685 

684 CHANGE CMD SEQUENCE CD N ? 

685 

686 

68 7 

688 

689 2.2.1 CLEAR COUNTERS • 

690 

6^1 IF YOU ANSWER YES TO THIS QUESTION, ALL COUNTERS CERROR COUNTS, 

W SPECIAL CONDITION COUNT, BYTES TRANSFERRED. ETC.) WILL BE SET TO 

6*5 2ERQ. 



SEQ 0014 
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SEQ 0015 

t>95 

696 

69 7 

698 2,2 t ? RESET RANDOM VARIABLES - 

699 

700 IF YOU REQUEST THAT THE RANDOM VARIABLES BE RESET, THESE 

701 VARIABLES WILL TAKE ON THEIR DEFAULT VALUES, 
702 

70? 
704 

705 2.2.3 PRINT SOFT ERRORS - 
706 

707 THIS QUESTION WILL ALLOW YOU TO ENABLE OR DISABLE THE PRINTING OF 

706 RECOVERABLE ERROR REPORTS. IF YOU ARE ONLY INTERESTED IN THE 

709 SLHMARY OF ERRORS ANO NOT THE INDIVIDUAL ERRORS, YOU SHOULD 

710 ANSWER (N) TO THIS QUESTION. 
711 

7X2 

713 

714 2.2.4 INHIBIT RECOVERY - 
715 

716 IF YOU SO CHOOSE, YOU CAN INHIBIT ALL ERROR RECOVERY WITH THIS 

717 QUESTION. IF YOU ANSWER (Y) TO THIS QUESTION, THE FOLLOWING 

718 QUESTION WILL NOT BE ASKED. 
719 

720 
721 

722 2,2.5 BAD TAPE SPOT DETECTION - 

723 

724 IF YOU ANSWER (Y) TO THIS QUESTION, THE BAD TAPE SPOT DETECTION 

725 RETRY ALGORITHM WILL BE USED, OTHERWISE, THE OPERATIONAL WRITE 

726 ERROR RECOVERY ALGORITHM WILL BE USED FOR ERROR RECOVERY. THESE 

727 ALGORITHMS ARE DESCRIBED IN SECTIONS ABOVE. THIS QUESTION WILL 

728 NOT BE ASKED IF ERROR RECOVERY IS INHIBITED. 
729 

730 

731 

732 2.2.6 DISABLE INTERRUPTS - 

733 

734 YOU CAN DISABLE OR ENABLE CONTROLLER INTERRUPTS WITH THIS 

735 QUESTION. 
736 

737 

738 

7 39 2.2.7 INHIBIT RFC ERROR REPORTS - THIS QUESTION ALLOWS YOU TO 

740 INHIBIT THE RFC (RESIDUAL FRAME COUNT) ERROR REPORTS. THESr 

741 ERROR REPORTS INDICATE THAT N BYTES/RECORDS/FILES WERE NOT 
™2 PROCESSED AT THE END OF THE COMMAND. 



D2 
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SEQ 0016 

744 

745 

74o 

74 7 2.2.8 CONTROLLER RAM DUMP - 

748 

V49 THIS QUESTION ALLOWS YOU TO CHOOSE WHETHER A DUMP OF THE 

750 CONTOLLER'S RAM WILL OCCUR WITH EACH ERROR. 

751 

752 

753 

754 2.2,9 ENABLE EARLY WARNING MESSAGES - 

755 

756 THIS QUESTION ALLOWS YOU TO ENABLE OR DISABLE THE PRINTING OF" A 

757 MESSAGE EACH TIME A WRITE ERROR OCCURS AND THE EARLY WARNING (EW) 

758 BIT IS SET IN EXTENDED STATUS REGISTER 1. 
759 

760 

761 

762 2.2.10 CHANGE CMD SEQUENCE - 

763 

"764 THIS QUESTION WILL ALLOW YOU TO CHANGE THE COMMAND SEQUENCE USED 

765 IN TEST 6, 

766 

767 NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN OPERATOR 

768 SELECTED SEQUENCE IS VO BE EXECUTED. IF THIS QUESTION IS 

769 ANSWERED (N), NO MORE QUESTIONS WILL BE ASKED. IF THIS QUESTION 

770 IS ANSWERED (Y), THE FOLLOWING QUESTIONS MUST BE ANSWERED OR 

771 DEFAULTED WITH A CR>: 



E? 



a 
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773 
774 
775 
7 76 

i -? -y 

778 
779 
760 
761 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 



MACRO M1200 21 -MAR -84 16 5 45 PAGE 19 



? 

CD) 



1 ? 



CHARACTERISTICS COOE (0) 40 ? 

CMD/2 (0) 13 ? 

BRF COUNT CO) 1 

OF OPERATIONS 

PATTERN (D) 7 ? 

CMO/3 (0) 4 ? 

BRF COUNT (D) 4096 ? 

OF OPERATIONS CD) 11719 ? 

PATTERN (0) 7 ? 

CMD/4 (D) 7 ? 

BRF COUNT (D) 4096 ? 

* OF OPERATIONS (D) 11719 ? 
PATTERN (0) 7 ? 
CMO/5 CO) 2 ? 
BRF COUNT CO) 4096 ? 

* OF OPERATIONS (D) 11719 ? 
PATTERN CO) 7 ? 
CMO/6 CO) 13, ? 
BRF COUNT CD) 1 ? 
4 OF OPERATIONS CD) 1 ? 
PATTERN CD) 7 ? 
CMO/7 CD) 27. ? 
BRF COLWT CD) 4096 ? 

* OF OPERATIONS CD) 11719 ? 
PATTERN CD) 7 ? 
CMO/8 CD) 27. ? 
BRF COWT CO) 4096 ? 
4 OF OPERATIONS CD) 11719 ? 
PATTERN CD) 7 ? 



CO, 20, 40 
Cl-27) 
C1-4K) 
C1-32K 
COR) 
Cl-27) 
C1-4K) 
C1-32K 
C0-8) 
Cl-27) 
C 1 -4K ) 
C1-32K 

(0-8) 

Cl-27) 

C1-4K) 

C1-32K 

(0-6) 

Cl-27) 

C1-4K) 

C1-32K 

C0-8) 

Cl-27) 

C1-4K) 

C1-32K 

CO-8) 

Cl-27) 

C1-4K) 

C 1 - 32K 

CO-8) 



,200) C OCTAL) 
C DECIMAL) 
C DECIMAL) 

) C DECIMAL) 
C DECIMAL) 
C DECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 
CDECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 
CDECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 
CDECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 
CDECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 
CDECIMAL) 
CDECIMAL) 

) CDECIMAL) 
CDECIMAL) 



SEQ 0017 



NOTE: THE PROGRAM AUTOMATICALLY INSERTS A CHARACTERISTICS CODE 

40 (SEE BELOW) AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 

DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD ENTER 
THAT CHARACTERISTIC CODE. 

A TOTAL OF 7 COMMANDS MAY BE ENTERED IN ADDITION TO THE SET 
CHARACTERISTICS COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 
7 COMMANDS, AN END COMMAND (27) MUST BE ENTERED AND THEN A 
CONTROL Z CZ) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUE. 
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818 
819 

«320 

s^i 

822 
823 
824 
825 
826 
82? 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
84 3 
844 
845 
846 

84 7 
848 
8*9 
850 
851 
852 
853 
854 
855 
856 

85 7 
858 
859 
860 
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F2 



SEQ 0018 



2.2.11 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
CODE COMMAND DESCRIPTION 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 - 

25 - 



26 » 

27 * 



SPACE FWD, READ REV. 

READ FWD, SPACE REV. 

SPACE REV, READ FWD. 

READ REV, SPACE FWD. 



DRI DRIVE INITIATE. 

RDF READ FORWARD, 

RDR READ REVERSE. 

WRT WRITE. 

WTV WRITE/VERIFY. (WRITE N RECORDS} SPACE REVERSE N RECORDS; 

READ FORWARD AND CHECK N RECORDS.) 
SRF SPACE RECORDS FORWARD. 
SRR SPACE RECORDS REVERSE. 
RNR READ NEXT REVERSE, IE 
RNF READ NEXT FORWARD, IE 
RPF READ PREVIOUS FWD, IE 
RPR READ PREVIOUS REV, IE 
WRR WRITE RETRY. 
RWD REWINO. 

MBR MESSAGE BUFFER RELEASE, 
WTM WRITE TAPE MARK. 
WTR WRITE TAPE MARK RETRY. 
SFF SPACE FILES FORWARD. 
SFR SPACE FILES REVERSE. 
GES GET EXTENOED STATUS. 
ERS ERASE 3 INCHES OF TAPE. 
UNL UNLOAD, 
CLN CLEAN TAPE 
SCH SET DEVICE CHARACTERISTIC. WHERE BRF-200. 40, 20, 0. 

200 - ENABLE SKIP TAPE MARKS STOP CSTOP AT LOGICAL EOT) 

40 • ENABLE ATTENTION INTERRUPTS. 

20 - ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

SEE TK25 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
NOT USED 
JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE TABLE, 

WHERE N IS DEFINED IN THE BRF FIELD. THE NUMBER OF 

JUMPS IS ENTERED IN THE NUMBER OF OPERATIONS FIELD. 
DLY DELAY "N" MILISECONDS WHERE N IS DEFINED IN THE NUMBER 

OF OPERATIONS. THIS DELAY IS USED BETWEEN EACH 

EXECUTABLE COMMAND. 
END END QF COMMAND SEQUENCE. 



G 
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SEQ 0019 

862 
865 
864 

865 2,2,12 DATA PATTERN LtST FOR USE IN SOFTWARE DIALOGUE - 

866 

86? PATTERN DESCRIPTION. 

868 

869 INCREMENTING PATTERN. - 577, 

870 1 ALL l'S PATTERN. 

871 2 ALL O'S PATTERN. 

&U 3 1 BIT WALKING FROM H TO L IN A FIELD OF O'S. 

873 4 BIT WALKING FROM R TO L IF A FIELD OF l'S. 

874 5 ALTERNATING 1 AND BITS WITH ALTERNATE BYTES COMPLIMENTED. (125/25 

875 6 ALTERNATING BYTES OF 000 AND 377. 

876 7 RANDOM DATA PATTERN. 

877 8 NO PATTERN GENERATION. 
878 

879 

880 

881 2.3 EXAMPLES OF SOFTWARE DIALOGUE 

882 

883 3. 3.X BASIC FUNCTION AND DATA RLLIABIL1VY WITH ALL ERROR 

884 REPORTING ENABLED - 
885 

886 A) RECEIVE PROMPT (DRO 

887 B) ENTER STA/TES : 1 -2<CR> 

888 C) ANSWER HARDWARE QUESTIONS. 

889 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
890 

891 CHANGE SW (L) ? Y<CR> 

892 CLEAR COUNTERS (L) N ? Y<CR> 

893 RESET RANDOM VARIABLES (L) N ? N<CR> 

894 HALT AFTER EACH CMD CD N ? N<CR^ 

895 PRINT SOFT ERRORS (L) N ? Y<CR> 

896 INHIBIT RECOVERY (L) N ? N<CR> 

897 BAD TAPE SPOT DETECT (I.) Y ? Y<CR> 

898 DISABLE INTERRUPTS (L) N ? N<CR> 

899 INHIBIT RFC ERROR REPORT (L) N ? N<CR> 
q 00 CONTROLLER RAM DUMP (L) N ? N<CR> 
q 01 ENABLE EARLY WARNING MESSAGES (L) N ? N<CR> 
q 02 CHANGE CMD SEQUENCE CD N ? N<CR* 



H2 
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904 
905 
906 
90? 
908 
909 
910 
911 
91c? 
913 
914 
9 A 5 
916 
91? 
918 
919 
920 
921 
922 
923 
924 
925 
926 
92? 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 

940 
941 
942 
94 3 
944 
94 5 
946 
94 7 
948 
949 
950 
951 
952 
953 
954 
955 
95f> 
95/ 
95tt 
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SEQ 0020 



2.3.2 TO SET UP A SCOPE LOCP FOR A FAILURE IN BASIC FUNCTIONS, 

A) RECEIVE PROMPT CDRO 

B) ENTER STA/TESj1/FLA:L0E:IER:ISRjIDU<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE} 

CHANGE SW CD t Y<CR> 

CLEAR COUNTERS (L) N ? Y<CR> 

RESET RANDOM VARIABLES CD N ? N<CR> 

HALT AFTER EACH CMD (I.) N ? N<CR> 

PRINT SOFT ERRORS CD N ? N<CR> 

INHIBIT RECOVERY CD N ? N<CR> 

BAD TAPE SPOT DETECT CD Y ? N<CR> 

DISABLE INTERRUPTS CD N ? N<CR> 

INHIBIT RFC ERR09. REPORT CD N ? Y<CR> 

CONTROLLER RAM DUMP CD N ? N<CR> 

ENABLE EARLY WARNING MESSAGES CD N ? N<CR> 

CHANGE CMD SEQUENCE CD N ? N<CR> 



2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 

A) RECEIVE PROMPT CCR>) 

B) ENTER STA/TESj5/FLA:IER:ISR:IDU/EOP:1000<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE SW CD ? 

CLEAR COUNTERS CD N ? 

RESET RANDOM VARIABLES CD N 

HALT AFTER EACH CMD CD N ? 

PRINT 5QFT ERRORS CD N ? 

INHIBIT RECOVERY CD N ? 

BAD TAPE SPOT DETECT CD 1 ? 

DISABLE INTERRUPTS (D N ? 

INHIBIT RFC ERROR REPORT CD 

CONTROLLER RAM DUMP (D N ? 

ENABLE EARLY WARNING MESSAGE! 

CHANGE CMD SEQUENCE CD N ? 

CHARACTERISTICS CODE CO) 40 ' 

CMD/2 CD) 5 ? 

BRF COUNT (D) 4096 ? 

OF OPERATIONS (D) 10 ? 

PATTERN (D) 7 ? 

CMD/* CO) 5 ? 

BRF (D) 4096 ? 

<t OF OPERATIONS CO) 10 ? 

PATTERN CD) 7 ? 

CMD/4 CD 5 ? 

BRF CD) 4096 V 



N ? 

; cd n ? 



Y<CR> 
Y<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
Y<CR> 
Y<CR> 
MCR> 
N<CR> 
Y<CR> 
40<CR> 
13<CR> 
1<CR> 
1<CR> 
1<CR> 
4<CR> 
1000*CR> 
10000 <CR> 
1<CR* 
£7-CR> 



C REWIND) C COULD BE ANi COMMA 



C WRITE) C COULD BE AN^f CUMMAN 



CEND) I COULD BE AN 1 * CUMMAN 
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960 
961 
96? 
965 
964 
965 
966 
96.' 
968 
969 
9 70 
971 
97.? 
975 
974 
97S 
976 

97 7 
978 
979 
980 
981 
98a 
985 
984 
985 
985 

98 7 
988 
989 
990 
991 
99? 
995 
994 
995 
996 
99/ 
998 
999 

1000 
1001 

100? 

1005 
1004 
100b 
1006 
1007 
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I? 



SEQ 0021 



2.4 EXECUTION TIMES 

2.4.1 SYSTEM CONFIGURATION - 
PDP-11/25* PROCESSOR 
128KW MEMORY 

LA34 TERMINAL 

1 - TK25 DRIVE 

1 - TK25 Q-BUS CONTROLLER 

2.4.2 TEST EXECUTION TIMES - 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



BASIC FUNCTIONS 0.5 MINUTES PER PASS. 
DATA RELIABILITY 85 MINUTES PER PASS. 
WRITE/READ STREAMING TEST 55 MINUTES PER PASS 
WRITE COMPATABIL.IT Y - 34 MINUTES PER PASS. 



READ COMPATABILITY 



25 MINUTES PER PAS' 



- OPERATOR SELECTED SEQUENCE - 48 MINUTES (FOR DEFAULT SEQUENCE). 



ALL 
ONE 



NOTE 

EXECUTION TIMES ARE SHOWN FOR 
UNIT OPERATION USING A 600 FOOT 



THE 



SYSTEM 



CARTRIDGE ANO 

CONFIGURATION ABOVE. FOR SYSTEM 

CONFIGURATIONS OTHER IHAN AN 11/25* 

WITH 128KW 0> MEMORY AND A SINGLE 

U<2ly SUBSYSTEM, TEST DURATIONS WILL 

VARY, 



3.0 ERROR INFORMATION 
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1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1010 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
104 7 
1048 
1049 
1050 
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J? 



C- 



SEQ 0022 



3.1 ERROR REPORTING 

ALL ERROR REPORTS EXCEPT FOR ERRORS 
THE FOLLOWING INFORMATION : 



1 AND 17 INCLUDE A DUMP OF 



ERROR 0, TEST O, SUBTEST *, PROGRAM COUNTER, UNIT 0, 
COMMAND, PREVIOUS COMMAND, PASS COUNT, NUMBER OF 
RECORDS FROM BOT, RECORD READ COUNT, ThF. COMMAND 
PACKET, TSSR, TCC, TSBA, RFC, AND THE EXTENDED STATUS 
REGISTERS, 

STANDARD ERROR REPORT FORMAT: 

CZTKIA SFT ERR XXXXX TST XXX SUB XXX PCt XXXXXX 
(ASCII ERROR MESSAGE) 

XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 
PREVIOUS CMD WAS XXX * RECORD READ: XXXXX * 

TCC 
X 





CMOPKT 


TSBA 


RFC 


iSSR 




XXXXXX 


XXXXXX 


XXXXXX 


XXXXXX 




XXXXXX 










XXXXXX 










XXXXXX 










XSTO 


XST1 


XST2 


XST3 




XXXXXX 


XXXXXX 


XXXXXX 


XXXXXX 


* CAUTION * 











INTERPRET THE "RECORD READ" COUNT WITH CAUTION. IF IT IS VEH1 
DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC, POSITION 
IS NOT NECESSARELY LOST. ERRORS IN READING THAT RECORD MIGHT 
HAVE CAUSED THE RECORD COUNT TO BE ERRONEOUSLY READ FROM TAPE. 

FOR EXAMPLE, IF IN TEST 2 THE DIAGNOSTIC IS RESTARTED OR 
CONTINUED, THE RECORD COUNT IS RESET TO ZERO ALTHOUGH TAPE WAS 
NOT REWOUND. THIS IS NECESSARY BECAUSE THERE IS NO ACCURATE WAY 
TO DETERMINE ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS 
HALTED BEFORE RESTARTING OR CONTINUING. IT IS SUGGESTED THAT A 
"PRINT" BE RF.QUESTFD WHEN HALTING THE DIAGNOSTIC TO GET A PRINT 
OF THE RECORD COUNT WHEN HALTED. 
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1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1066 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

10/6 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

100 7 

1088 

1089 

1090 

1091 

109? 

1093 

1094 

1095 

1096 

109 / 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1X05 
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l<2 



SEQ 0023 



EXAMPLE Of AN ERROR REPORT: 

CZTKIA SFT ERR 00009 TST 002 SUB 000 PCs 010606 

RECOVERABLE ERROR 

WRT CMO FAILED - UNIT 2 PASS; 

PREVIOUS CMD WAS WRT 



2 RECORD: 254 



CMDPKT 

100005 

051766 

000000 

000371 

XSTO 

000350 



TSBA 
002324 



XST1 
000002 



RfC 
OOOOOO 



XST2 
100004 



TSSR 
100210 



XST3 
OOOOOO 



TCC 
4 



3.1,1 ERROR 1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 
BOUNDRY : - 

IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
THIS IS A SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 
CORRECT IT. 



3.1,2 ERROR 2 - TK25 NOT READY: - 

BEFORE ANY COMMAND IS ISSUED TO THE TK25, THE SUBSYSTEM READY BIT 
IN THE TSSR4 IS CHECKED, IF THE SSR IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR, THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
OPTION IS USED, 



3.1.3 ERROR 3 - NO RESPONSE ERROR: 



ONCE THE TSDB IS 
OR THE PROGRAM 
DEVICE ERROR AND 



LOADED, THE TK25 HAS ONE MILLISECOND TO RESPOND 
REPORTS A "NO RESPONSE" ERROR. THIS IS A FATAL 
THE DEVICE WILL BE DROPPED FROM THE TEST 



SEQUENCE UNLESS THE IDU OPTION IS USED. 



3.1.4 ERROR 4 - NO INTERRUPT ERROR: - 

COMMAND WAS ISSUED AND NO INTERRUPT WAS RECEIVED. THE PROGRAM 
REPORTS THAT NO INTERRUPT OCCURRED. THXS IS A FATAL 9EVICE ERROR 
AND THE DLVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED, 



L2 



PARAMETER CODING 



110 7 
1108 
1109 
1110 
1111 
111? 
1115 
1114 
11 IS 
1116 
111/ 
1116 
1119 
1120 
1121 
11?.? 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1 1 30 
1131 
1132 
113.-) 
1134 
113b 
1136 
113/ 
1138 
1139 
1140 
1141 
114? 
1143 
1144 
114b 
1146 
114 7 
1148 
1149 
1150 
1151 
1152 

ir. 3 

1154 
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SEQ 0024 



3.1.5 SPECIAL CONDITION ERRORS} - 

IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR SPECIAL 
CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 8 ERROR 
HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS CODE. 

THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 



3.1.5.1 ERROR 5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
CONDITION - 

THE ERROR IS REPORTED, A HARD ERROR IS LOGGED AND THE PROGRAM 
PROCEEDS NORMALLY, 



3.1.5.2 ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 

ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 



3.1.5.3 ERROR 7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT - 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE 
SIGNIFICANCE TO THE PROGRAM. BITS OF INTEREST INCLUOE TMK, RLS. 
LET, RLL, EOT. ACTION TAKEN DEPENDS UN THE TEST BEING EXECUTED. 
IF THE CONDITION IS UNEXPECTED. THE ERROR IS REPORTED AND A HARD 
ERROR IS LOGGED. 



3.1.5.4 ERROR 8 - TERMINATION CLASS CODE 3, FUNCTION REJECT - 

THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTfcRtST 

INCLUDE RMR, OF I. , VD< . HOT. ILC , ULE, ILA. AND NBA, THIS IS A 

FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST 
CYCLE UNLESS THE IDU OPTION IS USED, 



M2 



PARAMETER CODING 



1156 

IIS? 

1158 

1159 

1160 

1101 

116 J 

1163 

1164 

1165 

1166 

116/ 

1168 

1169 

1170 

1171 

1 1 Vil 

1173 

1174 

1175 

1176 

M77 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

119! 

1196 

119/ 

1198 

1199 

1200 

1201 

1202 

1203 
1204 

1205 
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3.1.5.5 ERROR 9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR - 

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN THE 
F- UNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE ERROR 
AND ISSUE THE APPROPRIATE RETRY COMMAND. IF THE RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, A "RETRY LIMIT EXCEEDED" 
IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 



3.1.5.6 ERROR 10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR - 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEOURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF THE RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, A "RETRY LIMIT EXCEEDED" 
IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 



3.1,5.7 ERROR 11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 

TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 

IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 

SEQUENCE NUMBERS. THIS IS A FATAL DEVICE ERROR AND THE DEVICE 

WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 
USED. 



3.1,5,8 



ERROR 
ERROR 



12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 



THE SUBSYSTEM IS INCAPABLE OF PR'^-ERLY PERFORMING COMMANDS OR Al 
LEAST ITS INTEGRITY IS SERIG. SLY QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER KOR ADDITIONAL 
INFORMATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 



3.1.6 ERROR 13 - RFC NON-ZERO ERRORr - 

IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON ZERO, THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
PROCEEDS NORMALLY, THE REPORTING AND LOGGING OF THESE ERRURS IS 



SEQ 0025 



OPTIONAL, 



N2 



PARAME.ER COOING 



1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

121!: 

1216 

1217 

i.218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 
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SEQ 0026 



3,1.7 ERROR 14 - RETR^ LIMIT EXCEEDED: - 

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 

WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 
USED, 



ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD 
PROGRAM PROCEEDS NORMALLY, 



ERROR AND THE 



3.1.8 ERROR 15 - TOO MANY INTERRUPTS: •• 

IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND. THIS ERROR IS 
REPORTED. THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED, 



3,1,9 ERROR 16 - CAPSTAN RUNAWAY: - 

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 
THIS IS A FATAL DEVICE ERROR AND THE OEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED, 



3.1.10 ERROR 17 - DATA COMPARE ERROR: - 

IF A DATA VALIDATION ERROR OCCURS DURING A WRfTE/VERIFY COMMAND, 



THE PROGRAM PRINTS WHAT 
DATA >JAS, AND PRINTS THE 
ON. ONLY THE 



OCCURRED 
PRINTED. 
PRINTED. 
NORMALLY, 



THE DATA SHOULD HAV BEEN AND WHAT THE 
BYTE AND RECORD NUMBER THE ERROR 
FIRST 10 BYTES IN ERROR »ER RECORD ARE 
THE TOTAL Nt.'MBER OF BYTES IN ERROR PER RECORD IS ALSO 
A HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS 



3.2 ERROR HALTS 

ERROR HALTS ARE SUPPORTED PER Dt SCRIBED IN THE 
WITH /FLAGtHOE, THERE ARE NO CTMER HALTS* 



PREVIOUS SECTION 



:3 3 



PARAMETER CODING 



1254 
1255 

1256 
1257 
1258 
1259 
1260 
1261 
1262 
126? 
1264 
1265 
1266 
126" 
1268 
1269 
12 70 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1260 
1281 
1282 
1293 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
130^ 
13QG 
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SEQ 0027 



4,0 PERFORMANCE REPOR T 



UNIT X PASC:WXXX RECCf>D:XXXXX 
BYTES WRITTEN XXX, XXX, XXX, XXX 
BYTES READ REV XXX , XXX,XXX ,XXX 
BYTES READ F*WO XXX, XXX, XXX . XXX 

WIRT RDR RDF 
RECOVERABLE ERRORS XXXXX XXXXX XXXXX 
UNRECOVERABLE ERRORS XXXXX XXXXX XXXXX 

SPEC CONO HARD FATAL COMPARE 
XXXXX XXXXX XXXXX XXXXX 



5.0 TEST SUMMARIES 

5.1 TEST 1 - BASIC FUNCTIONS. 

EXECUTES ANO VERIFIES CORRECT COMPLETION Of ALL TK25 FUNCTIONS. 

SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 

♦ SET CHARACTERISTIC 200. (ENABLES SKIP TAPE MARKS STOP) 

♦ DRIVE INITIATE. 

♦ SET CHARACTERISTIC 20. (ENABLES MESSAGE BUF'F RELEASE INTERRUPTS) 

♦ GET STATUS 

♦ SET CHARACTERISTIC 40. (ENABLES ATTENTION INTERRUPTS) 

SUBTEST 2 - REWIND. 

♦ REWINO. 

» REWIND AT BOT. 



SUBTEST 3 



WRITE/VERIFY . 



WRITE/VERIFY 
WRITE/VERIFY 
WRITE/VERIFY 
WRITE/VERIFY 
WRITE/VERIFY 
WRITE/VERIFY 
WRITE/VERIFY 



PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 
PATTERN 



SUBTEST 4 



WRITE TAPE MARK 
WRITE TAPE MARK. 
WRITE 10 RECORDS 
ERASE 10 TIMES 
WRITE TAPE MARK. 
WRITE TAPE MARK RETRY 



I. 
2. 
3. 
4. 
5. 
6. 
0. 

ERASE 



SsfilESl 5 



SPACE; FILF^. 
SPACE £ FILES REVERSE. 



C3 



PARAMETER CODING 



1310 
1311 

151 J 1 
1313 

1314 
131.5 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
3 32 J 
1.V4 
1325 
1326 
132/ 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
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SEQ 0028 



SPACE 2 FILES FORWARD. 
SPACE 2 FILES REVERSE. 
SPACE 2 FILES FORWARD. 

SUBTEST 6 - SPACE RECORDS. 
REWIND. 

SPACE 7 RECORDS FORWARD. 
SPACE 7 RECORDS REVERSE, 
SPACE 7 RECORDS FORWARD. 
SPACE 7 RECORDS REVERSE. 

SUBTEST 7 - WRITE RETRY, 
REWIND. 

WRITE DATA. 
WRITE RETRY, 

SUBTEST 8 - READ REV RETRY, 
REAO REVERSE. 
READ NEXT REVERSE. 
READ NEXT FORWARD. 

5iUBTE5T 9 - READ FWO RETRY, 
READ FORWARD, 
READ PREVIOUS FORWARD. 
READ PREVIOUS REVERSE. 



SUBTEST 



SUBTEST 



SUBTEST 



10 - CLEAN. 
CLEAN. 
REWIND. 

1 - WRITE/VERIFY SWAPPED DATA BYTES. 
WRITE/VERIFY EVEN LENGTH (RECORD 1). 
WRITE/VERIFY ODD LENGTH (RECORD 2). 
SET DATA BYTE SWAP. 

WRITE/VERIFY EVEN LENGTH (RECORD 3), 
WRITE/VERIFY OOD LENGTH (RECORD 4), 
CLEAR DATA BYTE SWAP. 

2 - READ SWAPPED OATA BYTES. 
READ REV RECORD 4. 

READ REV RECORD 3. 
SET DATA BYTE SWAP, 
READ REV RECORD 2. 
READ REV RECORD 1, 
REAO FWD RECORD 1. 
READ FWD RECORD 2. 
CLEAR DATA BYTE SWAP, 
Rr.AD FWD RECORD 3. 
Rv'.AD FWD RECORD 4, 



PARAMETFR CODING 



13t>4 

1365 
1366 
136? 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
13 79 
1380 
1381 
138? 
1383 
1384 
1385 
1386 
1387 
1380 
1389 
1390 
1391 
1392 
1393 
139* 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
141? 
1413 
1414 



D3 
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SEQ 0029 



5.2 TEST 2 - DATA RELIABILITY, 



1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 

SET CHARACTERISTIC 40 

REWIND 

WRITE 31 RECORDS OF RANDOM LENGTH AND DATA 

2. WRITE, REPOSITION RECORD REVERSE. AND READ COMMANDS ARE 
SELECTED AT RANDOM AND ARE EXECUTED A RANDOM NUMSER OF 
TIMES WITH RANDOM LENGTHS AND RANDOM PATTERN UNTIL END 
OF TAPE IS REACHED. 

3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 



NOTE 

IF A RESTART COMMAND IS USED TO 
INITIATE TEST 1, THE INITIAL REWIND 
COMMAND IS NOT ISSUED. 



5,3 TEST 3 - WRITE AND READ STREAMING TEST. 



♦*♦ NOTE: THE TAPE LENGTH MUST BE 600 FEE1 FOR THIS TEST ♦♦* 

1. REWINDS ALL UNITS, THEN ON EACH UNIT: 

«* + * + + + + + + ** + * + * + + ***** + ** + *********** + * + **** + **** + ** + «* + **,>***** 

2. WRITE PATTERN 5 FOR 11719 - 4096 BYTE RECORDS. 

3. SPACE REVERSE FOR 11719 RECORDS. 

4. READ FORWARD FOR 11719 RECORDS. 

+,+, + + ****+ + * + *+<+■ + + + * + + ++**+■+■*+■ + * + + *+■ + + + +>+' **m±* + + m + ^m****l*m 



E 



PARAMETER CODING 



1416 
1417 

1418 
1410 

1420 
1421 
1422 
1423 
1424 
1425 
1426 
142? 
1428 
142^ 
1430 
1431 
14 32 
1433 
1434 
1435 
1436 
143? 
1436 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1*48 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 



5 
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NOTE 

WRITE AND READ ITERATIONS ARE 
INTERRUPTED SO THAT THE TAPE DOES 
NOT CONTINUOUSLY STREAM. THREE 
RECORDS ARE ALLOWED TO STREAM 
BEFORE THE UNIT IS INTERRUPTED FOR 
BOTH WRITE AND READ OPERATIONS, 
THE INTERRUPTION SCHEME IS SET UP 
TO PERMIT STREAMING OPERATIONS 75* 
OF THE TIME THIS TEST IS IN 
EXECUTION. 

THIS TEST EXECUTES IN A SINGLE 
SERVER MANNER - ONLY ONE UNIT AT A 
TIME IS EVER IiN OPERATION. FOR A 
FOUR C4) UNIT CONFIGURATION, THIS 
MEANS THAT THE DUTY CYCLE OF THE 
SYSTEM WILL BE 25*, BUT THE 
STREAMING OPERTATION OF THE 
SPECIFIC UNIT UNDER TEST WILL BE 
75*. FOR A THREE (3) UNIT 
CONFIGURATION THE SYSTEM DUTY CYCLE 
WILL BE 33. 3* , AND A TWO UNIT 
CONFIGURATION WILL BE 50*. THE 
STREAMING DUTY CYCLE FOR ANY 
PARTICULAR UNIT UNDER TEST WILL 
ALWAYS BE 75* REGARDLESS OF TH? 
SYSTEM DUTY CYCLE. 



5.4 TEST 4 - WRITE COMPATABILITY /WRITE UTILITY. 

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS AND RANDOM DATA FROM 
BOT TO EOT. 



5.5 TEST 5 - READ COMPATABILITY/READ UTILITY. 

REWINDS AND READS ENTIRE TAPE IN THE FORWARD DIRECTION, REWIND. 



SEQ 0030 



F3 



PARAMETER CODING 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
14 72 
1473 
14 74 
1475 
1476 
14 7 7 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
*505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 

1517 
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SEQ 0031 



5.6 TEST 6 - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

THE SEQUENCE OF COMMANDS ENTEREO BY THE OPERATOR IS EXECUTED. IF 

NO COMMANDS WERE ENTERED, A DEFAULT SEQUENCE OF 

REUIND/WRITE/REWIND/READ FWD/REWIND OF THE ENTIRE TAPE IS 
EXECUTED WITH RANDOM PATTERN AND RECORD LENGTH OF 4096 3YTES, 



6.0 DEVICE INFORMATION TABLES 

6.1 GENERAL 

THE TK25 SUBSYSTEM IS A 1/4 INCH CARTRIDGE TAPE DRIVE WITH EITHER 
A UNIBUS OR Q-BUS CONTROLLER. THE CONTROLLER MODULES USE THE 
TS11 PROTOCOL AS DEFINED IN THE TK25 SUBSYSTEM PROGRAMMERS GUIDE. 

COMMANDS ARE NOT WRITTEN TO THE ORIVEj RATHER, COMMAND POINTERS 

ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOMEWHERE IN CPU 

MEMORY. THE COMMAND POINTER IS USED BY THE TK25 SUBSYSTEM TO 

FETCH THE WORDCS) WITHIN THE COMMAND PACKET. THE WORDS WITHIN 
THE COMMAND PACKET ARE; 

1. COMMANO WORD 

2. LOW ORDER BUFFER ADDRESS 

3. HIGH ORDER BUFFER ADDRESS 

4. BYTE COUNT 

THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NECESSARY TO 
DETERMINE WHETHER: 

1, THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND, 

2, THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 

IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT "JOB DONE" OR 
"COMMANO INITIATION" TIME, IT MAY BE NECESSARY TO GET THE 
EXTENOED STATUS REGISTERS TO DETERMINE WHAT ACTION IS TO BE TAKEN 
AND/OR LOG THE ERROR INFORMATION. 

EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM ORIVE 
REGISTERS} RATHER, A "GET STATUS" COMMAND IS ISSUED WHICH WILL 
CAUSc THE YK25 TO TRANSFER EXTENOED STATUS INFORMATION TO THE 
MEMORY AREA POINTED TO BY THE BUFFER ADDRESS OF THE "GET STATUS" 
COMMAND, THERE ARE FOUR EXTENDED STATUS REGISTERS. 

THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION 10 PROPERLY 
WRITE THE COMMAND POINTER. A DATOB WILL CAUSE A MAINTENANCE 
FUNCTION. A DATO TO THE TSSR WILL CAUSE SUBSYSTEM INIT. 



COMMAND PACKETS MUST RESIDE ON DIVIDE 8l FOUR MEMORY 
CAS OPPOSED TO DIVIDE BY 2 QR WORD BOUNDARIES). 



BOUNDARIES 



G3 



PARAMETER CODING 



1519 
1520 
1521 

1522 
1523 
1524 
1525 
1526 
1527 
1526 
152^ 
1530 
1531 
1552 
1533 
1534 
1555 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
154? 
1544 
154 r > 
1546 
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SEQ 0032 



6.2 BUS INTERFACE SPECIFICATIONS 



THE STANDARD ADDRESSES AND VECTORS ARE ASSIGNED AS FOLLOWS: 



25 


REGISTER 


Q-l 
ADDRESS 
BBS? 


BUS 
CI/O PAGE) 


UNIBUS 
ADDRESS 





TSBA/TSDB 


1 
1 


2 
2 


520 
522 


772 520 
772 522 


1 


U.M.'TSDB 
Tv'iR 


1 
1 


2 
2 


524 
526 


772 524 
772 526 


2 


T5BA/TSDB 
T C SR 


1 
1 


2 

2 


530 
532 


772 530 
772 532 


3 


T5.BA/TSDB 
TSSR 


1 
1 


2 
2 


534 
536 


772 534 
772 536 



VECTOR 



224 



THE "♦" INDICATES THAT THE VECTOR IS A FLOATING VECTOR WITH i.ANK 
OF 37, FLOATING VECTORS ARE ASSIGNED STARTING AT 300 WITH THE 
LOWER RANK NUMBERS BEING ASSIGNED FIRST. NOTE THAT THE FLOATING 
VECTORS MAY CHANGE FROM SYSTEM TO SYSTEM. 



PARAMETER CODING 



1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1556 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
157? 
1573 
15/4 
1575 
1576 
1577 
15/8 
15/9 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
158/ 
3588 
1589 
1590 
1591 
VW 
1595 
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H3 



6.3 BIT DEFINITIONS FOR TK25 REGISTERS 
6.3.1 TK25 REGISTER SUMMARY - 



15 

)A15) 
TSBA > ) 

>P15> 
TSDB > > 

* - - - ♦ 

>SC > 

TSSR > ) 

♦ - - - f 

XSTO >TMK) 

> > 

XST1 )DLT> 

> > 

XST2 >OPM> 

) > 
♦ ♦ 



> ) 
* -- - + 



14 13 12 

---♦---*---♦ 

A14>A13)A12> 

> > > 

P14)P13)P12) 

> > > 

) }RMR> 

> ) ) 
-------f---» 

RLS>LET)RLL> 

> > > 
♦ * ♦■ 

) >CRS> 

> > > 

DCF>DHF>SPD> 

> > > 

— * — t — + 



XST3 > ERROR ADDRESS MOST 



> ) 



11 10 09 

+ ♦--- 

A11)A10>A09 

> > 

Pll)P10)P09 

> > 

NXM>NBA)A17 

> > 

----------- 



*--•♦ 

WLE>NEF)ILC 

> > 

NER) > 

> > 

• -- + ---♦•-••- 

> ) 1 

> > 

SIGNIFICANT 

> > 



08 07 06 
♦ ---♦---♦ * 

►A08)A07>A06> 

> ) > 

»P08)P07)P06> 

> ) > 

>A16>SSR>0FL> 

> ) > 
--♦ — *---f 

•ILA>M0T>ONL> 

> > > 

>TN3>TN2) 

> ) ) 
---♦---♦«--♦ 



05 04 03 

►A05>A04)A03 

) ) 

- - ♦ t - ■ 

>P05)P04>P03 

> ) 

>FCl>rC0>TC2 

> ) 

- + ♦-•• 

IE )VCK> 

> > 

■TNDTNO) EW 

> > 

- - ♦ - - ■♦--•• 



02 01 00 
f ■■-♦-■-- * - .- ■ 

>A02>A01>A0O 

> > > 

>P02>P17>P16 

> ) > 

)TC1>TC0> 
) > > 

♦ ---♦ ♦ - - - 

♦ - - *■ ♦ ■ - - 

>WU<>BOT>EflT 

> ) > 

> >UNC > 

> > > 

♦ --•-♦---♦-•-- 



> ERROR ADDRESS LST SIGNIFICANT BYTE 



B' 



> 

TE > 
> 



) > 

>OPI> 
> > 



--►-.-♦.-_♦ f-.. 



) > 

■ - » ■ » - 

REV)TCH>STP 
> > 



> 



> 
♦ • - - * 



> 
> 



> 

f - - - 

>RIB 

> 



TERMINATION CLASS CODES (TSSR TC0-TC2)i 




1 
2 
3 
4 

5 
6 
V 



NORMAL TERMINAI10N 

ATTENTION CONDITION 

TAPE STATUS A'.ERT 

FUNCTION REJELT 

RECOVERABLE ERROR - TAPE POSITION 

DOUN TAPE FROM START OF FUNCTION 

RECOVERABLE ERROR TAPE NOT MOVfD 

UNRECOVERABLE ERROR - TAPE POSITION LOST 

FATAL CONTROLLER ERROR 



ONE RECORD 



SEQ 0033 



13 



PARAMETER CODING 



1595 

154b 
1597 
1598 
1599 
1600 
1601 
1602 
160? 
1604 
1605 
1606 
1607 
1605 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
162/ 
1628 
1629 
1630 
1631 
1642 
1633 
1634 
1635 
3636 
1637 
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SEQ 0034 



6,3.2 TK25 STATUS REGISTER (TSSR) - 



6.3,2,1 TSSR READ ONLY - 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

TSSR >SC > > ) >RMR> )NXM>NBA>A17> }A16>SSR)0FL > >FC1 >FCO)TCP> >TC1>TC0> > 



) BIT 


NAME 


TERMINATION 
CLASS 


DEFINITION 


) 15 


SC 


S 


SPECIAL CONDITION: USED TO INDICATE 
THAT EITHER AN ERROR CR AN EXCEPTION 
OCCURRED WHILE EXECUTING A COMMAND. 


> 14 


- 


- 


NOT USED 


> 13 




- 


NOT USED 


> 12 


RMR 


S 


REGISTER MODIFICATION REFUSED: SSR 
(SUB -SYSTEM READY) WAS NOT SET WHEN A 
COMMAND POINTER WAS LOADED INTO TSDB. 


) 11 


NXM 


4/5 


NONEXISTENT MEMORY: WHEN AN ATTEMPT \0 
TRANSFER TO OR FROM A NONEXISTENT MEMORY 
LOCATION, THIS BIT WILL SE1 , 


> 10 


NBA 


S 


NEED BUFFER ADDRESS: INDICATES THAT THE 
MESSAGE BUFFER ADDRESS IS REQUIRED. 


> 09 


A17 


S 


BUS ADDRESS BIT 17: DISPLAYS VALUE OF 
BIT 17 OF THE TSBA REGI5TER. 


> 08 


A16 


5 


BUS ADDRESS BIT 16: DISPLAYS VALUE OF 
BIT 16 OF THE TSBA REGISTER. 



J3 



PARAMETER CODING 



1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

164? 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1.073 

1674 

1675 

1676 

1677 
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SEQ 0035 







TERMINATION 




> BIT 


NAME 


CLASS 


DEFINITION > 


> 07 


SSR 


S 


SUBSYSTEM READY: THE SUBSYSTEM IS NOT > 
BUSY AND IS READY TO ACCEPT A NEW COMMAND) 
POINTdR WHENEVER THIS BIT IS SET. ) 


> 06 


OFL 


S 


OFF LINE: INDICATES THE TAPE TRANSPORT > 
IS OFF LINE AND UNAVAILABLE FOR ANY > 
MOTION COMMANDS. > 


> 05 


FC1 


- 


FATAL TERMINATION CLASS 1 - NOT USED > 


> 04 


FCO 


- 


FATAL TERMINATION CLASS - NOT USED ) 


) 03 


TC2 


s 


TERMINATION CLASS BIT 2: THIS BIT. AlONG) 
WITH TCI AND TCO, ACTS AS mN OFFSET VALUE) 
WHENEVER AN ERROR OR EXCEPTION CONOITION ) 
OCCURS ON A COMMAND. EACH OF THE EIGHT ) 
POSSIBLE VALUES OF THIS FIELD REPRESENTS > 
A PARTICULAR CLASS OF ERRORS WHICH HAVE A) 
SIMILAR SIGNIFICANCE AND, AS APPLICABLE, ) 
SIMILAR RECOVERY PROCEDURES, THE COOE ) 
PROVIDED IN THIS FIELD IS EXPECTED TO BE ) 
USED AS AN OFFSET INTO M DISPATCH TABLE ) 
FOR HANDLING OF THE CONDITION. ) 


> 02 


TCI 


s 


TERMINATION CLASS BIT 1: SEE TC2 ) 


) 01 


(CO 


s 


TERMINATION CLASS BIT 0; SEE TC2 ) 


> 00 


- 




NOT USPD ) 



I<3 



PARAMETER CODING 



1679 
1660 
1681 
1682 
1685 
1684 
1685 
1686 
1667 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1/11 
1712 
1713 
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6,3.2,2 TSSR WRITE ONi.Y - 

WRITE COMMANDS TO THE TSSR 
SPECIALIZED FUNCTIONS. 



00 NOT WRITE, BUT INVOKE CERTAIN 



1. A WRITE WORD (DATO) TO THE TSSR WILL INITIALIZE THE TK25 
SUBSYSTEM AND REWIND THE TAPE ON THE CARTRIDGE. 

2. A WRITE BYTE (DATOB) TO THE LOW BYTF OF THE TSSR WILL 
CAUSE THE CONTROLLER TO EXECUTE ITS RESIDENT SELF TESTS. 
IF THE CONTROLLER PASSES THE SELF TESTS, IT WILL THEN 
INITIALIZE ITSELF AND THE DRIVE AS ABOVE. THE TSDB/BA 
AND THE TSSR WILL NOT RESPOND TO BUS TRANSACTIONS TOR 
THE DURATION OF THE SELF TEST (APPROXIMATELY 100 
MICROSECONDS). ANY ATTEMPT BY THE HOST TO READ OR WRITE 
THESE REGISTERS OUR INC* SELF TEST WILL RESULT IN A 
NON-EXISTENT DEVICE REGISTER TIMEOUT. 

3. IF AN OPERATION IS NOT IN PROGRESS C SSR SET IN THE 
TSSR), A WRITE BYTE TO THE HIGH BYTE OF THE TSSR WITH A 
"1" IN THE HIGH ORDER DATA BIT POSITION (BIT 7) WILL 
CAUSE THE SUBSYSTEM TO BOOT THE CPU BY MEANS OF THE 
FOLLOWING SEQUENCE OF EVENTS CQ-6US CONTROLLER ONLY): 

REWIND THE TAPE 

SPACE FORWARD ONE RECORD 



SEQ 0036 



READ THE FIRST 2b6 BITS OF THE SECOND 
CPU MEMORY STARTING AT ADDRESS 0, 



RECORD INTO 



PARAMETER CODING 



1/15 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1 ?25 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
l"^ 
1744 
1745 
1746 

174; 

1 748 
1749 
1750 
1751 
1752 
3 753 
1754 
1 755 
1756 
1757 
1758 
1 759 
1760 
1761 
1762 
1763 
1764 
1765 
1 /66 
1767 
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L* 



o 



SEQ 0037 



6.3.3 EXTENDED STATUS REGISTER (XSTATO) - 

15 14 13 12 11 10 C9 08 07 06 05 04 03 02 01 00 
XSTOTMIO >RLS>LET>RLL> >WLE >NEF)ILC > >IL A )M0T )CNL > )IE )VCK) > >ULK>B0T>E0: > 



BIT NAME 



15 T11K 



14 RLS 



TERMINATION 
CLASS 



S/2 



13 LET 



2 



12 
11 



RLL 

WLE 



2 
3,(6) 



10 



NF.F 



DEFINITION 



TAPE MARK DETECTED; SET WHENEVER A 
TAPE MARK IS DETECTED ON TAPE. 

RECORD LENGTH SHORT: USED TO INDICATE 
ONE OF THREE CONDITIONS: 1. THE RECORD 
READ WAS SHORTER THAN THE BYTE COUNT 
2. A SPACE RECORD OPERATION TERMINATED 
BEFORE THE POSITION COUNT WAS COMPLETE 
(THIS IS NORMAL IF A TAPE MARK IS 
DETECTED OR BOT IS ENCOUNTERED IN A 
SPACE REVERSE). 5. A SKIP TAPE MARKS 
COMMAND TERMINATED BEFORE THE POSITION 
COUNT WAS COMPLETED, THIS IS NORMAL IF 
A DOUBLE TAPE MARK (SEE LET) IS 
DETECTED OR BOT IS ENCOUNTERED IN A 
REVERSE OPERATION. 



LOGICAL END OF TAPE: SETS IF A TAPE MARK 
IS DETECTED WHEN MOVING FROM BOT OR IF 
DOUBLE TAPE MARKS ARE DETECTED. NOTE: 
THIS BIT WILL ONLY SET IF THE COMMAND 
IS SKIP TAPE MARKS AND THE MODE OF 
TERMINATION WAS ENABLED BY THE SET 
CHARACTERISTICS COMMAND. 

RECORD LENGTH LONG: THE RECORD READ WAS 
LONGER THAN THE BYTE COUNT SPECIFIED. 

WRITE LOCK ERROR: THE WRITE OPERATION 
WAS ISSUED TO A WRITE PROTECTED TAPE. 
NOTE: THE TK?5 SETS THE TERMINATION 
CODE 3 ONL^. TC 6 APPLIES ONLf TO 
DRIVES EQU/PPED WITH A WRITE LOCK SWITCH 

NONEXECUTABLE FUNCTION: CAUSED TO SET 

BY ONE OF THE FOLLOWING: 

, REVERSE COMMAND WHEN ALREADY AT BOT 



M3 



PARAMETER CODING 



1769 

1770 

177.1 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

178? 

1763 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

181? 

181?, 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 
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SEQ 0038 









. ANY MOTION COMMAND WITHOUT A CLEAR 
VOLUME CHECK WHILE THE TRANSPORT WAS 
OFF-LINE. 

. A WRITE COMMAND TO A WRITE PROTECTED 
TAPE. 


> 09 


ILC 


3 


ILLEGAL COMMAND: ANY COMMAND THAT 
CONTAINS CODES IN EITHER THE COMMAND 
FIELD OR MODE FIELD THAT ARE NOT 
SUPPORTED BY THE TAPE TRANSPORT. 


> 08 


ILA 


3 


ILLEGAL ADDRESS: WHEN THIS BIT IS SET, 
AN ILLEGAL ADDRESS IS ISSUED. 


> 07 


MOT 


S 


CAPSTAN MOVED: INDICATES TAPE WAS MOVED 
DURING AN OPERATION. 


> 06 


ONL 


5/1/3 


ON-LINE: INDICATES THAT THE SELECTED 
TRANSPORT IS ON-LINE AND READY. TER- 
MINATION CLASS 1 IS SET FOR ATTN 
INTERRUPTS AND TC 3 FOR NON-EXECUTABLE 
FUNCTIONS REJECTED WHILE OFF LINE. 


) 05 


it: 


S 


INTERRUPT ENABLE: 


> 04 


VCK 


S/3 


VOLUME CHECK: ALWAYS SET AFTER 
INITIALIZATION OR WHEN THE ON-LINE 
STATUS OF THE TRANSPORT CHANGES. 
(EITHER ON TO OFF OR OFF TO ON) 


> 03 


PED 


S 


PHASE ENCODED DRIVE: TK25 IS NOT P.E., 
SO THIS BIT IS ALWAYS ZERO. 


> 02 


WLK 


S/3 


WRITE LOCKED: THE TAPE IS WRITE 
PROTECTED. 


) 01 


BOT 


5/2/3 


BEGINNING OF TAPE: THE TAPE IS AT .(.At) 
POINT, TC2 IS SET IV TAPE IS REVERXO 
INTO BOT. AND TC3 IF A REVERSE COMf^ND 
IS ISSUED WITH THE TAPE ALREADY AT BOT. 


) 00 


EOT 


S/2 


END OF TAPE; oETS AS THE HEAD PASSES TO 
TRACK 10 IN THE FORWARD DIRECTION. IT 
IS NOT RESET UNTIL THE HEAD PASSES BACK 
TO TRACK 9 IN THE REVERSE DIRECTION. 
(STATUS ON READ: TC2 ON WRITE. 
SUBSYSTEM INIT ALSO RESETS THIS BIT. 



N3 



PARAMETER COOING 



1823 

1624 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

184/ 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

187? 

18/3 

18/4 
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6.3.4 EXTENDED STATUS REGISTER 1 CXSTAU) - 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
>DLT> > ) )CRS> >NER) > > > >TN3>TN2> >TN1>TN0> EW> > )UNC> > 



BIT 



15 



TERMINATION 
NAME CLASS 



OLT 



14 


- 


13 


- 


12 


CRS 


11 


NER 


10 


- 


09 


- 


08 


- 


07 


TN3 


06 


TN2 


05 


TNI 


04 


Ti\0 


03 


EW 


02 




01 


UNC 



s 
s 

5 

S 

S/4 



DEFINITION 



00 



DATA LATE: THIS BIT IS SET WHEN THE 16 
BYTE FIFO BUFFER IS FULL ON A READ, OR 
EMPTY ON A WRITE, AND THE TAPE TRANSPORT 
REQUIRES A DATA TRANSFER, 

NOT USED. 

NOT USED. 

CREASE DETECTED. DATA DROPPED OUT FOR UP 
TO 1.8 MS (APPROXIMATELY 0,2 INCH). 

NOISE DETECTED DURING ERASE, 

NOT USED. 

NOT USED. 

NOT USED. 

TAPE TRACK NUMBER HIGH ORDER BIT. 

TAPE TRACK NUMBER BIT £. 

TAPE TRACK NUMBER BIT 1. 

TAPE TRACK NUMBER LOW ORDER BIT. 

EARLY WARNING HOLE AT END OF TRACK SEEN. 

NOT USED. 

UNCORRECTABLE DATA; IN THE TK25 ALL 
TAPE ERRORS ARE UNCORRECTABLE , SINCE 
THERE IS NO INTERNAL ERROR CORRECTION. 

NOT USED. 



SEQ 0039 



PARAMETER COOING 



18 76 

18 7 7 

18 78 

1679 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

188 7 

1688 

1889 

1890 

1891 

189? 

189? 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

191? 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

192b 
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B4 



SEQ 0040 



6*3,5 EXTENDED STATUS REGISTER 2 (XSTAT2) - 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
♦ --■-♦ *--».--♦---♦ ».-.*...»....» *.--»-•»--* ».-.»-..#-..» ».-..».--#---# 

)OPM) )OCF>DHT>SPD) > ) > 1 ) ) ) ERROR ADDRESS LST SIGNIFICANT BYTE) 
*....♦ *_..*...».-.* t ■ • - » » * « ♦..-»...» »_._*...»...* »--.*..-♦_„.* 

SET CHARACTERISTICS COMMAND; >XFS> L.CNTROLLEP. KIPMWARE VKRSION > 



> BIT 


NAME 


TERMINATION 
CLASS 


DEFINITION 


> 15 


OPM 


S 


OPERATION IN PROGRESS; TAPE MOVED 


> 14 


DCF 


7 


DRIVE COMT*JNICATION FAULT. FAILURE 0. r 
READ SENSE COMMAND TO TCS INITIATED AFTER 
DETECTING INT OR DER RESULTING FROM TAPE 
MOTION COMMAND TO TCSj OR HEALTH CHECK 
FAULT RECEIVED IN TCS SE*<JSE BYTES. 


> 13 


DHF 


7 


DRIVE HARDWARE FAULT. NO LAMP CURRENT 
STATUS OR HEAD POSITIONING FAULT RETURN- 
ED IN TCS SENSE BYTES. 


> 12 


SPD 


7 


CAPSTAN SPEED ERROR, FAST OR SLOW 


) 11 





- 


TK25 IDENTIFIER. ALWAYS *ERO. 


> 10 


- 


• 


NOT USED, 


> 09 


1 


• 


TK25 IDENTIFIER. ALWAYS ONE. 


> 08 


- 


- 


NOT USED. 


> 07-00 


EAD 07 


00 s 


ERROR ADDRESS LEAST SIGNIFICANT BYTE. 
(PROGRAM COUNTER IN THE TCD MICROCODE.) 



NOTE; XSTAT 2 BITS 07 THRU 00 HAVE A DIFFERENT MEANING DURING THE SET 
CHARACTERISTICS COMMAND; XSTAT 2 BITS 06 THRU 00 RETURN THE MAJOR 
REVISION LEVEL OF THE CONTROLLER MICROCOOE (IN BINARt). IF BIT 07 
15 A 1, THE. CONTROLLER ASSUMES A 22 BIT Q BUS, ANO IF 0» AN 18 BI1 
Q BUS OR A IHIBUS, IN THE LATTER CASE, COMMANO PACKETS CONTAINING 
ADDRESSES GRLATER THAN 18 BIT5 WILL GENERATE ERRQHS* 



PARAMHTFR CODING 



1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

193b 

193 7 

1938 

193^ 

1940 

1941 

194,? 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1950 

1956 

1957 

1958 

1959 

1960 

1961 

196? 

1963 

1964 

1965 

1966 

196 7 

1968 

1969 

1970 

1971 

197? 

1973 
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C4 



SEQ 0041 



6.3,6 EXTENDED STATUS REGISTER 3 CXSTAT3) 



15 



14 13 12 



11 10 09 



08 07 C6 



05 04 03 



02 01 00 

} ERROR ADDRESS MOST SIGNIFICANT BYTE ) >OPI> >REV>TCH>STP > > > )RIB> 



6 



> BIT 


NAME 


TERMINATION 
CLASS 


DEFINITION 


> 15-08 


EAD 15 


•08 S 


ERROR ADDRESS MOST SIGNIFICANT BYTE. 
IF XSTAT 1 BIT 14 IS 1, THE ADDRESS IS 
THE PROGRAM COLTER IN THE SIA, AND 
IF IN THK TC5. 


> 07 


- 


- 


NOT USED. 


> 06 


OP I 


6 


OPERATION INCOMPLETE: SETS IF 16 FEET 
OF TAPE WITHOUT DATA PASSES THE READ 
HEAD ON READ, SPACE. OR SKIP OPERATIONS 
OR 4 FEET OF TAPE IN WRITE OPERATIONS. 


) 05 


REV 


5 


REVERSE: INDICATES REVERSE IS THE 
DIRECTION Of CURRENT TAPE OPERATION. 


> 04 


TCH 


7 


NO TACHS: INDICATES THAT CAPSTAN MOTOR 
DID NOT START OR THAT TACHS ARE NOT 
BEING GENERATED OR DETECTED. 


> 03 


STP 


S/6 


STRIPE: SERVO STRIPE IS FAULTY OR 
MISSING. 


) 02 


- 


- 


NOT USED, 


> 01 




- 


NOT USED. 


> 00 


Rib 


2 


REVERSE INTO BOT: SETS WHEN REVERSE 
OPFRATIONS ENCOUNTER THE BOT EARLY 
WARNING HOLE AFTER TAPE IS IN MOTION. 



PROGRAM HlADER AND TABLES 



1986 






1987 






2018 






2020 


000000 




2021 




002000 


2023 


002000 




2024 






2025 






2026 






202? 






2028 






2029 






2030 


002000 




2031 






2039 






2040 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


113 




002004 


111 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






0020 ' 1 


060 




002C12 






0020U 5 


000001 




002014 






0C2014 


005000 




002016 






002016 


027 750 




00202C 






002020 


030022 




002022 






002022 


002176 




002024 






002024 


002204 




002026 






002026 


031510 




002030 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000001 




002036 






002036 


000000 




002040 






C02040 


002124 




0o2042 






0020-12 


00034C 




002044 






002044 


000000 



D4 
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.TITLE PROGRAM HEADER AND TABLES 
, SBTTL PROGRAM HEADER 

.ENABL ABS.AMA 

2000 
BGNMOD 



I THE PROGRAM HEADER IS THE INTERFACE BETUEEN 
i THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRPT,8GNSW,BGNSFT,BGNAU t BGNDU t BGNSETUP 



HEADER CZTK I , A , , 5000 , 1 , INTPR I 
L$NAME{j jDIAGNOSTIC NAME 



SEQ 0042 



LIREV: 
L*DEPO 
L*UNIT 
LITIML 
LIHPCP 
L$SPCP 
LIHPTP 
L$SPTP 
LtLADP 
LtSTAt 
L*CO; : 
LIDTYP 
I.* APT: 
I $DTP : 
L$PRi'0 
L$ENVI 



jREVISION LEVEL 
|0 

j NUMBER OF UNITS 
tLONGEST TEST TIME 
iPOINTER TO H.W. QUES, 
jPOINTER TO S.W. QUES. 
jPTR. TO DEF, H.W. PTABLE 
jPTR. TO S.W. PTABLE 
jDIAG. END ADDRESS 
^RESERVED FOR APT STATS 

iDIAGNOSTIC TYPE 

,APT EXPANSION 

jPTR. TO DISPATCH TABLE 

jDIAGNOSTIC RUN PRIORITY 

l FLAGS DESCRIBE HOW II WAS SETUP 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BYTE 

.BYTE 


/C/ 
/I/ 
/T/ 
/K/ 
/I/ 








.ASCII 


/A/ 


.ASCII 


AV 


.WORD 


1IPTHV 


.WORD 


5000 


.WORD 


LJHARD 


.WORD 


LfSOFT 


.WORD 


L$HW 


.WORD 


L$SW 


.WORD 


L$LAST 


.WORD 





.WORD 





.WORD 


1 


.WORD 





.WORD 


I IDISPATCH 


.WORD 


INTPRI 


.WORD 






PROGRAM HEADER AND TABLES 
PROGRAM HEADER 



E4 
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SEQ 0043 



2041 



002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
C02070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



000000 

003 
003 

000000 
000000 

000000 

002166 

020052 

000000 

000000 

023710 

023644 

000000 

002140 

104035 

000000 

021664 

023602 

023160 

02X656 

000000 

000000 

000000 



LtEXPlj • 
UMREV: : 

LiEF;: 

L$SPCi 

L*DEVP 

LiREPP 

LJEXP4 

L$EXP5 

L*AUT 

LiDUT 

LJLUN 

LJDESP 

L$LOA0 

L$ETP 

L$ICP 

L$CCP 

LIACP 

LIPRT 

LITEST 

L$DLY: 

L*HIME 



j EXPANSION WORD 

I SVC REV AND EOIT ft 

iDIAG. EVENT FLAGS 



j POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



;PTR. TO ADD UNIT CODE 

jPTR, TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

iPOINTER TO DIAG. DESCRIPTION 

j GENERATE SPECIAL AUTOLOAD EMT 

j POINTER TO ERRTBL 

;PTR. TO INIT CODE 

jPTR. TO CLEAN-UP CODE 

;PTR. TO AUTO CODE 

jPTR, TO PROTECT TABLE 

j TEST NUMBER 

jDELAt COUNT 

jPTR, TO HIGH MEM 



.WORD 



.BYTE 
.BYTE 


CJREVISION 
CREDIT 


.WORD 
.WORD 






.WORD 





.WORD 


L$DVTYP 


.WORD 


L*RPT 


.WORD 





.WORD 





.WORD 


L$AU 


.WORD 


LJDU 


.WORD 





.WORD 


LJDESC 


EMT 


EJLOAD 


.WORD 





.WORD 


L*INIT 


.WORD 


L$CLQAN 


.WORD 


L$AUTO 


.WORD 


LJPROT 


.WORD 





.WORD 





.WORD 






PROGRAM HF.ADF.fi AND TABLES 
DISPATCH TABLE 



20*9 
2050 
2051 
2052 
2053 
2054 
2055 
2056 



F4 
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.SBTTL DISPATCH TABLE 

i ♦♦ 

I THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OP EACH TEST. 

j IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



2057 
."064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 



2072 



002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 



002140 
002140 
002140 
002143 
002146 
002151 
002154 
002157 
002162 
002165 

002166 

002166 
002166 
002171 



000006 

024004 
025372 
026046 
026524 
026670 
027002 



104 
101 
105 
101 
114 
131 
105 
000 



124 
065 



101 
040 
114 
102 
111 
040 
123 



113 
000 



124 
122 
111 
111 
124 
124 
124 



062 



SEQ 0044 



DISPATCH 6 
L$DISPATCH{ } 



I SIX TESTS 



.WORD 



.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 



.SBTTL DESCRIPTIVE TEXT 

I ♦♦ 

;2 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES 

i 

DESCRIPT <DATA RELIABILITY TEST> 



L5DESC:; 



.ASCIZ /DATA RELIABILITY TE 



DEVTYP 
L$OVTYP:: 



<TK25> 



.EVEN 

.ASCIZ /TK25/ 
.EVEN 



KUKiiiAM 


HE ADER 


AND TABLES 


DEFW..T 


HARDWARE P- TABLE 


?.0 75 






0076 






20 77 






; ? 07fl 






20/9 






c'080 






■':osi 






• W 






2083 


002174 






002174 


000002 




002176 






002176 




,•■034 






,0^0 






..'091 


002176 


1/2522 


2092 


002200 


000224 


:\ u -»5 






2094 


002202 
002202 
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SEQ 0045 



.SBTTL DEFAULT HARDWARE P-TABLE 



i ♦ ♦ 



; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
i THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
I IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



BGNHW ^FPTBL 



LJHW: t 

DFPTBLs: 



.WORD Ll0O0O-L*MW/2 



172522 
224 



LIOOOO; 



jTSSR ADDRESS. 
{VECTOR ADDRESS. 



ENDHW 



H4 



PROGRAM MfcADtR AND TABLES 
SOFTWARE P- TABLE 



20 y 7 






,-.o^a 






. 'O'SS* 






.■.'.00 






JiCl 






PI OP 






2103 


002202 






002202 


000043 




002204 






002204 




:m to 


002204 


001 


.-Mil 


002205 


000 


2ii2 


002206 


000 


2113 


002207 


000 


2U4 


002210 


000 


;-:us 


002211 


001 


:ut) 


002212 


000 


jii/ 


002213 


000 


;*ua 


002214 


000 


;\u c: > 


002215 


ooo 


, v '20 


002216 


000 




002217 


000 


c 1 < < 


002220 


000040 


i:\?A 


002222 


000015 


r'\; 4 :i 


002224 


000001 


rVi.26 


002226 


000001 


212/ 


002230 


000007 


2i2d 


002232 


000004 


;-■ i ;?<? 


002234 


010000 


til "50 


002236 


035230 


2:. 31 


002240 


000007 


2132 


002242 


000015 


2133 


002244 


000001 


2 A 54 


002246 


000001 


.'M^j 


002250 


000007 


2136 


002252 


OC0002 


;?i 3V 


002254 


010000 


i'ii5» 


002256 


035230 


21 59 


002260 


000007 


rue 


002262 


000033 


;'i^i 


002264 


000001 


; J i4L» 


002266 


000001 


:?14*5 


002270 


000007 


r»l44 


002272 


000033 


i'145 


002274 


010000 


2146 


0022 76 


035230 


J? 14/ 


002300 


000007 


..'148 


002302 


000033 


;\» V> 


002304 


010000 


;■■ • -o 


002306 


035230 


£i-:o. 


002310 


QQQQQ7 


.U!ii - : 


002312 
002512 




21S3 


00a3l2 
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.SBTTL SOFTWARE P-TABLE 



SEQ 0046 



J ♦♦ 



THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR, 

BGNSW SFPTBL 



.WORD L10001-L$SW/2 



L$SW: : 






SFPTBL s 


» 




CLRFLG: 


j. BYTE 


1 : 


RRANV;; 


.BYTE 


i 


HAE: : 


.BYTE 


i 


ERCVER: 


;,BYTE 


t 


IREC: : 


.BYTE 


{ 


BADTSW: 


:.BYTE 


1 j 


DINT: ! 


.BYTE 


j 


PIRE:: 


.BYTE 


i 


RAMWRT: 


:,BYTE 


i 




.BYTE 


i 


EWPRNT: 


:.BYTE 


i 


CHGFLG: 


: .BYTE 
.EVEN 


i 


CHAR: : 


CH.EAI 




CMDD : : 


.WORD 


13. j 




.WORD 


1 j 




.WORD 


1 ( 




.WORD 


RANP j 




.WORD 


4 i 




.WORD 


DATCNT i 




.WORD 


15000. i 




.WORD 


RANP j 




.WORD 


13. ; 




.WORD 


1 J 




.WORD 


1 j 




.WORD 


RANP j 




.WORD 


2 i 




.WORD 


DATCNT , 




.WORD 


15000. j 




.WORD 


RANP i 




.WORD 


27. ; 




.WORD 


1 j 




.WORD 


1 




.WORD 


RANP ; 




.WORD 


2/. i 




.WORD 


DATCNT i 




.WORD 


15000. ! 




.WORD 


RANP i 




.WORD 


27. j 




.WORD 


DATCNT , 




.WORD 


15000. i 




.WORD 


RANP i 




ENDSW 




L 10001 i 







CLEAR COUNTERS FLAG. 

RESET RANDOM VARIABLES EACH PASS FLAG. 

HALT AFTER EACH COMMAND FLAG. 

ENABLE RECOVERABLE ERROR PRINTS FLAG. 

INHIBIT ERROR RECOVERY FLAG, 

BAD TAPE SWITCH TO REWRITE ON SAME SPOT 6 DETECT BAD TAPE 

DISABLE INTERRUPTS FLAG. 

INHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG, 

ENABLE OPTIONAL RAM DUMP 

SPARE 

ENABLE EARLY WARNING END OF TRACK STATUS PRINTS 

CHANGE CMD SEQ TABLE FLAG. 



CHARACTERISTICS CODE 

COMMAND 2 (DEFAULT • 

BYTE COUNT 

NUMBER OF OPERATIONS 

RANOOM DATA 

COMMANO 3 (DEFAULT - 

BYTE COLWT (DEFAULT ■ 

NUMBER OF OPERATIONS 

RANOOM DATA 

COMMANO 4 (DEFAULT « 

BYTE COUNT 

ONE OPERATION 

RANOOfi DATA 

COMMANO 5 (DEFAULT » 

BYTE COUNT (DEFAULT ' 

NUMBER OF OPERATIONS 

RANOOM DATA 

1ERMINAT0R 

BYTE COUNT 

NUMBER OF OPERATIONS 

PATTERN 

END OF CMO SEQ TABLE 

BYTE COUNT (DEFAULT 

NUMBER OF OPERATIONS 

RANOOM DATA 

END OF CMO SEQ TABLE 

BYTE COUNT (DEF AW.T 

NUMBER OF OPERATIONS 

RANDOM DATA 



(DEFAULT 
REWIND). 



40). 



WRITE: 
- MAX BUFFER SIZE). 
(DEFAULT * 15000). 

REWIND) 



READ FWD). 
- MAX BUFFER SIZF), 
(DEFAULT « 15000) 



CODE (DEF) OR CMD 7 
■ MAX BUFFER SIZE). 
(DEFAULT - 15000). 



CODE (DEF) OR CMD 
i MAX BUFFER SIZE ). 
(DEFAULT « 15000), 



8 



ENDMOD 



PROGRAM HEADER AND TABLES 
SOF T WARf P~ TABLE 
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SEQ 0047 



:Uli6 


r-jf)/ 


<\'*d 


,:i 7 7 


fc :i78 


;:ir> 


:m.3o 


c.m.:>i 


," i 82 


2183 


;::y i 


2iah 



002312 



002312 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
00003/ 
000036 
000035 
000034 



TITLE GLOBAL AREAS 

SBTTL GLOBAL EQUATES SECTION 

BGNMOO 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST, 



EQUALS 



1 BIT DIFINITI 


BIT15-- 


100000 


BIT14-- 


40000 


BIT13-" 


20000 


BIT12-' 


• 10000 


BIT11-- 


• 4000 


BIT10-- 


2000 


BIT09-- 


• 1000 


BIT08-- 


' 4C0 


BIT07-* 


« 200 


BIT06-' 


■ 100 


BIT05-- 


■ 40 


B1T04-- 


■ 20 


BIT03-- 


• 10 


BIT02-- 


• 4 


BIT01-- 


• 2 


BITOO«< 


■ 1 


BIT9-- 


BIT09 


BTT8-- 


BIT08 


--CT7-- 


BIT07 


TT6-- 


BIT06 


• iTS«« 


BIT05 


; ;t4«- 


BIT04 


.>IT3»« 


BIV03 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BIT0-- 


BITOO 



l EVENT FLAG DEFINITIONS 

j EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

J 

32. i 

31. i 

30. ; 

i>8. i 



EF, START-- 
EF. RESTART-- 
EF. CONTINUE"* 
EF.NEW-- 
EF- .PUR-- 



START COMMAND UAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND UAS ISSUED 
A NEW PASS HAS BEEN STAPH I) 
A POWER -FAIL/POWER -UP OCCURRED 



000340 
000300 



i 



PRIORITY LEVEL DEFINITIONS 



PRIO/-- 
PRXQ6*» 



340 
300 



GLOBAL AREAS MACRO M1200 

GLOBAL EQUATES SECTION 
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SEQ 0048 





000240 




000200 




000140 




000100 




000040 




000000 




000004 




000010 




000020 




000040 




000100 




000200 




000400 




0"; 1.000 




002000 




004000 




010000 




0?0000 




0400^0 




100000 


2 •. at-> 




p \ t ■ .»? 




?]«):i 




21''»6 




;>197 




I-" 'A't 




;n.\'< i ) 




2200 




2201 




220.: 




220"? 




,'\>C * 




220^ 




' : 'l^ i 




;*. :om 


100000 


i."20 l * 


040000 


i J .:.l0 


020000 


2211 


01 0000 


2212 


004000 


2213 


002000 


2214 


001000 


221 c -; 


000400 


2216 


000200 


221/ 


000100 


22 1M 


17//17 


2219 


177761 



PRI05-- 240 


PRI04 


•- 200 


PRI03-- 140 


PRI02-- 100 


PRI01 


-- 40 


PRIOO-- 


! OPERATOR FLAG 


EVL-* 


4 


LOT-- 


10 


ADR-* 


20 


IDU-- 


40 


ISR-' 


100 


UAM-- 


200 


DOE-* 


400 


PNT-« 


1000 


PRT-" 


2000 


IXE-' 


4000 


IBE-' 


10000 


IER-* 


20000 


L0E-- 


40000 


HOE- 


100000 



REGISTER USAGE. 

RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR 

Rl - COMMAND SEQUENCE TABLE POINTER. 

R2 - GENERAL PURPOSE REGISTER. 

R5 - GENERAL PURPOSE REGISTER. 

R4 - GENERAL PURPOSE REGISTER. 

R5 - CURRENT LOGICAL DEVICE NUMBER X 2. 

R6 - STACK POINTER. 

R7 - PROGRAM COUNTER. 

j THE FOLLOWING ARE BIT DEFINITIONS FOR THE TS5R REGISTERS. 



TS.SC-- 
TS.Ufl- 
TS.SPE* 
TS.RMR- 
TS.NXM* 
TS.N8A- 
TS.A17- 
TS.A16- 
TS.SSP- 
TS.OFL- 
T5C.FCC 
TSC.TCC 



lOOOOO 

-40000 

« 20000 

-10000 

-4000 

-2000 

•1000 

•400 

-200 

-100 

'-17/717 

**177761 



j SPECIAL CONDITION BIT. 
UNIBUS PARIT/ ERROR 
SERIAL BUS PARITY t-:RROR . 
(icC'I'ilLR MODIFICATION REFUSED 
NON -EXISTENT MEMORY. 
NEED BUFFER ADORE TS 
BUS ADDRESS B.T f 17, 
3US ADDRESS BIT 16. 
UNIT fJLAOY BIT. 
OFF LINE. 

FATAL CLASS CODE MASK. 
TERMINATION CLASS CODE MASK. 



i<4 



GLOBAL AREAS 


MACRO t 


GLOBAL. EQUATES 


SECTION 


2221 




222? 




2223 


100000 


2224 


040000 


2225 


020000 


2226 


010000 


222 7 


004000 


2228 


004000 


2229 




2230 


002000 


2231 


001000 


2232 


000400 


2233 


000200 


2234 


000100 


2235 


000100 


2236 




2237 


000040 


2238 


000040 


2239 




2240 




2241 


000020 


2242 


000020 


224 3 


000010 


2244 


0OC004 


2245 


000002 


2246 


000001 


224 7 




2248 




2249 




2250 


000200 


2251 


000040 


2252 


000020 


2253 


000040 


2254 




2255 




2256 




225 7 




2258 


000004 


2259 


000006 


2260 


000010 


2261 


000012 


2262 


000014 


2263 




2264 




2265 




2266 


100000 


2267 


040000 


226R 


020000 


2269 


CI 0000 


22 70 


000100 


2271 


000002 


22 /2 


000001 


PP. 7 3 




2274 




22 rj 




22 76 


000010 
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SEQ 0049 



{THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 



ACK.C-- 100000 
CVC.C--40000 
OPP.C- -20000 
SWB.C- -10000 
M0D.C3--4OOQ 
BRF.C--4000 

MOD. C2- -2000 

MOD. CI- -1000 

M0D.C0--400 

IE.C--200 

FMT.C1--100 

VFY.C--100 

FMT.C0--40 
JMP.C--40 



CMD.C4--20 

DLY.C--20 
CMD.C3--10 

CM0.C2--4 



CMD.C0--1 



ACKNOWLEDGE BIT 

CLEAR VOLUME CHECK. 

OPPOSITE BIT 

SWAP BYTE BIT 

MODE BIT 3 

BYTE/RECORD/FILE C0UN1 FLAG BIT. NOT USED 

BY TK25 BUT USED INTERNALLY BY THIS PROGRAM ONLY 

MODE BIT 2 

MODE BIT 1 

MODE BIT 

INTERRUPT ENABLE 

FORMAT BIT 1 

WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 

NOT USED B> TK25. 

FORMAT BIT . 

JUMP BI1 "SECT THIS PROGRAM TO JUMP TO 

A CERTAIN L-^riTION IN THE COMMAND SEQUENCE 

TABLE. INTERNAL USE ONLY. 

COMMAND BIT 4 

INSERT DELAY. INTERNAL USE ONLY. 

COMMAND BIT 3 

COMMAND BIT 2 
{COMMAND BIT 1 
{COMMAND BIT 



i 



BIT DEFINITIONS FUR DEVICE CHARACTERISTICS, 



CH,ESS*"200 
CH.EAI--40 
CH.ERI--20 
DFTSCH--CH.EAI 



{ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
{ENABLE ATTENTION INTERRUPTS. 
{ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
{DEFAULT CHARACTERISTICS CODE. 



{THE FOLLOWING IN0ICA1ES THE RELATIVE POSITIONS OF THE STATUS WORDS 
;IN THE MESSAGE BUFFER. 



MS.RFC — 4 

MS.XS0--6 

MS.XS1--10 

MS.XS2--12 

MS.XS3--14 



{RESIDUAL FRAME COUNT, 

j EXT STATUS REG 

{EXT STATUS REG 1 

jEXT STATUS REG 2 

;EXT STATUS REG 3 



;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 



XO. TMK-- 100000 
XO.RLS- -40000 
XO, LEI* -20000 
XO. RLE- *10000 
XO. ONE *=100 
XO.B0T»*2 
XO.E0T--1 



{TAPE MARK. 

{RECORD LENGTH SHORT. 

{LOGICAL EOT. 

{RECORD LENGTH LONG. 

{ON LINE BIT. 

(BOT BIT. 

(EOT BIT. 



2277 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
XI.EWN--UZT3 



L4 



GLOBAL ARFAS MACRO M1200 
GLOBAL EQUATES SECTION 
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SEQ 0050 



2278 




2279 




2280 


100000 


2281 




2282 




2285 




2284 


000010 


2285 


157400 


2286 




2287 




2283 




2289 




2290 


000000 


2291 


000002 


2292 


000004 


2293 


000006 


2294 




2295 




2296 




2297 


000340 


2298 


000010 


2299 




2300 


000016 


2301 


000020 


2302 


010000 


2303 




2304 




2305 


177740 


2306 


000007 


230" 


000020 


23oa 


000020 


2309 


153624 


2310 


032561 


2311 


177774 


2312 


177740 


2313 




2314 




2315 




2316 




2317 


100013 


2318 




2319 




2320 


104001 


2321 




2322 




2323 


104401 


2324 




2325 




2326 


104005 


2327 




2328 




2329 


104105 


2330 




2331 




23 32 


104010 


2333 





{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER ? . 
X2.0PM--100000 {OPERATION IN PROGRESS, TAPE MOVING 

j.'Hr. Following are bit definitions for extended status register 3. 



X3.0CK--10 
X3.RNY--157400 



j density check. 

j capstan runaway udiag error code. 



j THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
{PACKET ENTRIES. 

|CMDPKT»0--TK25 COMMAND. 
}CMDPKT*2--BUFFER ADDRESS LOW. 
?CM0PKT*4»-BUFFER ADDRESS HIGH, 
;CKDPKT*6- -BYTE/FILE/RECORD COUNT 

MISCELLANEOUS DEFINITIONS. 

{PRIORITY TO BE USED IN INTERRUPT STATE. 
{ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
{BUFFER LENGTH. (EVEN *) 

{MESSAGE BUFFER LENGTH IN BYTES. (EVEN 0) 
{DIAGNOSTIC COMMAND BUFFER EXTENT. 
{MAXIMUM RECORD LENGTH IN BYTES. 

{THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 
{PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 
{RANDOM * OF OPERATIONS MASK. 
{CODE TO SELECT RANOOM PATTERN. 
{READ RECOVERY ATTEMPT LIMIT. 
{WRITE RECOVERY ATTEMPT LIMIT. 

{CONSTANT USED TO RESET RANOOM GENERATOR BASE. 
{CONSTANT USED TO RESET RANDOM SAVE LOCATION. 
{NOT IN USE CODE FOR DEVICE STATE TABLE. 
NCMD . C - - ACK . C ! C VC . C ! OPP . C ! SWB . C ! MOD , C3 • MOD , C2 ! MOD .CI! MOD , CO ! IE . C ! FMT . C 1 ■ FMT . CO 

{NOT "COMMAND" BITS, 

{THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH Tl<25 COMMAND. 

ORI-- 



CP.CMD- 


-0 


CP.ADL- 


-2 


CP.ADH- 


-4 


CP.CNT- 


»6 


i 


MISCEL! 


iNTpni- 


-PRI07 


SCHCNT- 


-10 


MSGC;jr» 


'•16 


DIACMi"- 


-20 


DATCNT- 


-4096. 


RNOPSC* 


-177740 


RANP--7 


r 


RRECL-- 


16. 


WRECL-- 


'16. 


RAN6C-- 


■153624 


RANSC-- 


■32561 


NINUSE- 


■-177774 



ACK . C ! CMD . C3 ! CMD . CI ! CMD .CO 

{DRIVE INIT, 



RDF»" 
RDR-- 
WRT-* 

wrv" 

SRF" 



ACK.C'BRK.CJCMD.CO 



{READ FORWARD 



ACK . C ! BRF . C ! MOD . CO ! CMD . CO 

{READ REVERSE 

ACK . C ! BRF . C ! CMD . CO ! CMD . C2 

{WRITE COMMAND 

ACK . C ! BRF . C ! VF Y . C ! CMD . CO ! CMD . C2 

{WRITE VERIFY 



ACK.C!BRF.C!CMD.C3 



2334 



{SPACE RECORD FORWARD 



M4 
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2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

23 73 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2338 

2389 

2390 

2391 



104410 

105401 

125401 

105001 

125001 

105005 

102010 

100012 

100011 

101011 

105010 

105410 

100017 

100411 

100412 

101012 

140004 
100006 
000040 
000020 
177777 
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SRR-- 
RNR" 

RNF** 



SEQ 0051 



RPR-- 
WRR-* 
RWD" 
MBR»* 



WTR-- 

SFF-- 

SFR-- 

GES" 

ERS-* 

UNI.*" 

CLN*« 

SCH*» 
DIA" 

JMP*» 



ACK , C ! BRF . C ! MOO . CO ! CMD , C3 

{SPACE RECORD REVERSE 

ACK . C J BRF , C J MOD . C 1 ! MOD . CO ! CMD . CO 

jREAD REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 



ACK.C!BRF.C»OPP.C!MOD.C1!MOD.CO!CMD.CO 

{READ REV RETRY2 - REREAD NEXT FORWARD, IE. READ FORWARD, SPACE REVERSE 

RPF * * ACK . C ! BRF , C • MOD . CI ! CMD . CO 

{READ FWD RETRY1 REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 



ACK.C!BRF.C!OPP.C!MOD.C1!CMD.CO 

jREAD FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 

ACK. C ! MOD. CI ! BRF. C! CMD. C2! CMD. CO 

{WRITE RETRY 



ACK.C!M0D.C2!CMD.C3 
ACK.CICMD.C3ICMD.C1 



WTM - - ACK , C ! CMD . C3 ! CMD . CO 



{REWIND COMMAND 

; MESSAGE BUFFER RELEASE 

; WRITE TAPE MARK. 



ACK . C • MOD . C 1 » CMD . C3 ! CMD . CO 

{WRITE TAPE MARK RETRY, 

ACK . C ! BRF , C ! MOD . C 1 ! CMD . C3 

{SPACE FILE FORWARD 

ACK . C ! BRF . C ! MOD . CO » MOD .CI! CMD . C3 

{SPACE FILE REVERSE 

ACK . C ! CMD . CO ! CMD . C 1 ! CMD . C2 ! CMD . C3 

{GET EXTENDED STATUS 

ACK , C ! MOD . CO ! CMD . C3 » CMD . CO 

{ERASE 3 INCHES OF TAPE 

ACK . C ! MOD . CO ! CMD . C3 • CMD . C 1 

{UNLOAD COMMAND 

ACK . C ! MOD . C 1 ! CMD . C3 » CMD . C 1 

{ERASE TAPE. 



ACK.C!CVC.C!CMD.C2 

ACK.C!CM0.C2!CMD.C1 

JMP.C 



DLY«« DLY.C 



END 



1/7/77 



{SET DEVICE CHARACTERISTICS. 

{DIAGNOSTICS. 

{JUMP 10 "N"TH COMMAND 

{DELAY "N" MS. 

{END OF COMMAND SEQUENCES 



N4 
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2393 






2394 






2395 






2396 






2397 






2398 






2399 






2400 






2401 






2402 




002314 


2403 


002314 


000000 


2404 


002316 


000000 


2405 


002320 


000000 


2406 


002322 


000000 


2407 






2408 






240S 






2410 




002324 


2411 


002324 


100017 


2412 






2413 






2414 






2415 






2416 




002330 


2417 


002330 


100012 


2418 






2419 






2420 






2421 




002334 


2422 


002334 


102010 


2423 


002336 


000001 


2424 






2425 






2426 






2427 


002340 




2428 






2429 






2430 






2431 






2432 






2433 






2434 






24 35 






24 36 






24 37 


002356 




2438 


002374 




24 39 


002412 




2440 


002430 
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SEQ 0052 



.SBTTL GLOBAL DATA SECTION 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 



COMMAND PACKET. 



CMDPKT:; 






,♦36177774 



MUST BE ON MOD 4 BOUNDRY. 

1ST WORD IS TK25 COMMAND. 

2ND UORD IS THE BUFFER LOW ADDRESS. 

3RD WORD IS THE BUFFER HIGH ADDRESS. 

4TH WORD IS THE BYTE/RECORD/FILE COUNT 



GET STATUS COMMAND PACKET, 



.WORD 



.♦36177774 

GES 



}MUST BE ON MOD 4 BOUNDRY 



MESSAGE BUFFER RELEASE COMMAND PACKET. 



bRCPK: 



RWCPK: 



,♦36177774 

WORD MBR 



I MUST BE ON MOD 4 BOUNDRY 



REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 

jMUST BE ON A MODULE 4 BOUNDARY. 



.WORD 
.WORD 



. ♦36177774 

RWD 

1 



WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS 



MSGPKTj: ,BLKW 7 



tlST 

{2ND 
{3RD 
j4TH 
j5TH 
{6TH 
j7TH 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



MESSAGE TYPE. 

DATA FIELD LENGTH. 

RESIDUAL FRAME COUNT 

XSTATO 

XSTAT1 

XSTAT2 

XSTAT3 



MSGPKO 
MSGPK1 
MSGPK2 
MSGPK3 



MESSAGF PACKETS, 

.BL.KW 7 

.RLKW 7 

,BLKW 7 

.BLi'.W 1 



MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 



PACKET 

PACKET 
PACKET 
PACKET 



FOR 
FOR 
FOR 
FOR 



DEVICE 00 
DEVICE 01 
DEVICE 42 

DEVICE OS 



b 



■35 



GLOBAL ARtAS MACRO M1200 
GLOBAL DATA SECTION 



21-MAR-84 lb } 45 PAGE 54 



2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2-53 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

24 70 

2471 

24 72 

2473 

24 74 

2475 

24 76 

2477 

24 78 

24 79 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 



002446 
002450 
002452 
002454 



002456 
O02466 

002476 



002506 
002510 
002512 
002514 



002516 
002520 

002522 
002524 



002526 
002530 
002532 
002534 



002536 
002540 
002542 
002544 
002546 



002550 
002552 
002554 

002556 



002356 
000000 
000016 
000040 



002456 



002356 
002374 
002412 
002430 



006552 
006560 

006566 
006574 



OOOOOO 
000000 
OOOOOO 
OOOOOO 



177774 
17 7774 
177774 
177774 
177777 



003000 
003052 
003124 

0031/6 



SCQ 0053 



I 



SCHBK s : 



I 



SET CHARACTERISTIC BLOCK. 

MSGPKO i 1ST 

1 2ND 

MSGCNT ,3R0 

CH.EAI ,4TH 

TK25 REGISTER ADDRESSES. 



WORDt? rlSGPKT ADDR LOCSET UP By EXCUTE ROUTINE). 

WORD} i MSGPKT ADDR HI. 

WORD t i MSG BUFFER LENGTH (BYTES) 

WORDm CHARACTERISTICS W0RDC5ET BY SETUP ROUTINE) 



TS0B;t .BLKW 4 

TSSRjj .BLKW 4 

TSVCT.j .BLKV' 4 
TSBA--TSDB 



|TK25 DATA BUFFER ADDRESSES. 
»TK25 STATUS REGISTER ADDRESSES. 
|TK25 VECTOR ADDRESSES. 
jDATA BUFFER ADDRESS REGISTER, 



J 



ADDRESSES OF MESSAGE PACKETS. 



MSGPKA} 



I 



MSGPKO 
MSGPK1 
MSGPK2 
MSGPK3 



IDEVICE 
, DEVICE 
iDEVICE 
IDEVICE 



0. 
1. 
2. 
3. 



ADDRESSES OF INTERRUPT HANDLING ROUTINES, 



TS4INT;? TS4IN0 
TS4IN1 
TS4IN2 
TS4IN3 



iDEVICE 0, 

iDEVICE 1. 

iDEVICE 2. 

iDEVICE 3. 



i 



TS4CL;} 



i 
I 
I 

DEVTBL: 



TK25 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION T£ST 



iDEVICE 
iDEVICE 
iDEVICE 
iDEVICE 



WIT NUMBERS OF ALL DEVICES BEING TCSTEDd 4). 

WHEN DEVICE IS NOT IN USE. IT.S LOCATION WILL • -3. 

R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



NINUSE 
NINUSE 
NINUSE 
NINUSE 
END 



BTADDRi 



8AD TAPE TABLE POINTER; USED 
**WRTY" TO LOG BAD TAPE SPOTS 

8T0 
BTi 
BT? 
QT3 



BY 
ON 



WRITE 
UNITS 



RETRi 

VNQER 



ROUTINE 
TEST 



C5 
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SEQ 0054 



2495 
5496 

2497 
2496 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
254 7 
2548 
2549 



COUNTER AREA, 



002560 
002620 
002660 
002720 
002730 
002740 
002750 
002760 
002770 
003000 
003052 
003124 
003176 
003250 
003260 
003270 
003300 
003310 
003320 

003330 



003340 



003342 
003344 
003346 
003406 
703410 
003412 
003414 
003416 
003420 
003422 
003424 
003426 
003430 
003432 
003434 
0034 36 
003440 
003442 
003444 
003446 
003450 
003452 
003454 



002560 



003330 

000550 
000 



000000 
000000 

000000 
000000 
000003 
000000 
000000 
000000 
000000 

oooooo 

177777 
177777 
177777 

oooooo 
oooooo 

153624 

032561 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



CNTBGN-. 








WRBCjj ,BLKW 


20 


1 


RRBC?; .BLKW 


20 


1 


RFBC55 .BI.KW 


20 


1 


WRPEC:: ,.U_KW 


4 


1 


WRUNRis ,ULKW 


4 


J 


RRRECs! .BLKW 


4 


J 


RRUNRr: .BLKW 


4 


I 


RFREC:: .BLKW 


4 




RFUNRii .BLKW 


4 




BTO:t .BLKW 


21. 




BTIj: .BLKW 


21. 




BT2:: .BLKW 


21. 




BT3:i .BLKW 


21. 




WRTYCT;: .BLKW 


4 




PASCNT:; .BLKW 


4 




SCCNTt: .BLKW 


4 




VFYCNT:: .BLKW 


4 




HROCNTj: .BLKW 


4 




FTLCNTt: .BLKW 


4 




CNTENO-. 






RECCNT:: .BLKW 


4 




CNTLEN--CNTENO- 


CNTBGN 




HEREi .BYTE 




J 


j THE FOLLOWING ARE THE C 


)EF 


I USED BY 


THE PROGRAM, 




.EVEN 






RAMHLD* .WORD 







RAMR5H: .WORD 







RAMOATA. j.BLKW 


16. 




RAMSIZ: 


.WORD 







CMPOAT: 


.WORD 







DAI RAT: 


.WORD 


3 




DATAWT: 


.WORD 







DATARD: 


.WORD 







NCNT:: .WORD 







NCNTl:; .WORD 







BRFCNT:: .WORD 







CMOWRD; ; .WORD 


ENO 




CMOSAV:: .WORD 


END 




PCMOWO:? .WORD 


END 




CMOLG:: .WORD 







LENMSK:? .WORD 







RANB: 


.WORD 


153624 




RANSs 


.WORD 


32561 




TIMEl 


: .WORD 







TIME2 


s .WORD 







JLOOP 


t . WORD 







JLOC; 


.WORD 







PATERt 


ix 


.WORD 








BYTES WRITTEN. 

BYTES READ REV, 

BYTES R£AD FWO. 

RECOVERABLE WRITE ERRORS. 

UNRECOVERABLE WRITE IIRRORS. 

RECOVERABLE READ REV ERRORS. 

UNRECOVERABLE READ RliV ERRORS. 

RECOVERABLE READ FWDKRRORS. 

IRRECOVERABLE READ FIJO ERRORS. 

UNIT C BAT TAPE SPOT'S LOG 

UNIT 1 BAT TAPE SPOTS LOG 

UNIT 2 BAT TAPE SPOTS LOG 

UNIT 3 BAT TAPE SP0T5 LOG 

WRITE RETRY COUNTER 

PASS COUNT. 

SPECIAL CONOITION CCUNT, 

COUNT OF TK25 DATA COMPARE ERRORS. 

COUNT OF HARD ERRORS 

COUNT OF FATAL ERRORS. 

ENO OF STATICTICAL COUNTERS. 

NUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 

ANO WHfeM RESTARTING OR CONTINUING TEST 2, 

LENGTH OF STATISTICAL COUNTER AREA. 

j TEST 3 ASCII SEMAPHORE 



»RAM ADDR HOLDER 1ST ADDRESS 

iHOLDS R5 FOR LATER 

iDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

iRAM DATA SI2E FOR PRAMPKT ROUTINE 

jCOUNTS * OF READS (TEST 3) BEFORE ALLOWING A DATA COMPARE 

iCONTROLS THE DATA COMPARE RATIO 

jWRITE BUFFER ADDRESS. 

iREAD BUFFER ADDRESS. 

I STORAGE FOR VALUE OF N. 

j TEMP STORAGE FOR VALUE Of N, 

1 STORAGE FOR BPC'l VALUE. 

iCONTAINS COMMANO WORD BEING EXECUTED PRESENTLY 

iSAVE LOCATION FOR CMO WORD DURING ERROR RECOVER* 

j CONTAINS PREVOUS COMMANO WORD. 

I CURRENT COMMANO LOGGING CODE. 

iRANOOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 

iRANDOM * GENERATOR BASE, 

jRANOOM SAVE LOCATION. 

»TIME COUNT 1. 

I TIME COLNT 2. 

iJMP COMMANO LOOP COUNT. 

iJMP COMMAND LOCATION COUNT, 

jPATTERN SELECT CODE, 



05 
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2551 


003456 


000000 


2552 


003460 


000000 


2553 


003462 


000000 


2554 




003414 


2555 






2556 






2557 






2558 






2559 




003464 


2560 


003464 


OOOOOO 


2561 


003466 


000 


2562 


003467 


000 


2563 


0034 70 


000 


2564 


003471 


000 


2565 


0034 72 


000 


2566 


0034 73 


000 


2567 


0034 74 


000 


2568 


00347b 


000 


2569 






25/0 




003476 


2571 






2572 






2573 






2574 


003476 




2575 


003506 




2576 


003516 


OOOOOO 


2577 


003520 


000 


2578 


003521 


000 


2579 


003522 


000 


2580 


003523 


000 


. S81 


003524 


000 


2582 


003525 


000 


2583 


003526 


000 


2584 


003527 


000 


2585 


003530 


ooc 


2586 


003531 


oco 


2587 


003532 


000 


2588 


003533 


000 


2589 






2590 






2591 






2592 




003534 


2593 






2594 






2595 






2596 


003534 


COO 


2597 


003535 


000 


2598 


003536 


000 


2599 


003537 


000 


2600 
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CTCC:.- .WORD 

R5SAVE:: .WORD 

TSSREGji .WORD 
DIABLK--DATAWT 



SEQ 0055 



i CURRENT TERMINATION CLASS CODE. 

jLOCATION FOR SAVING CURRENT DEVICE POINTER. 

tCURRENT STATUS REGISTER. 

j WRITE BUTFER ALSO USED FOR OIAG CMD. 



l 
i 

BGNFLG 

RETRYC 

RPTCNT 

WRTYFG 

WRTYER 

RECLOG 

ERLOG 

RWERR 

UNREC 

ERRRtC 



ENDFLG' 



ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 



EN0ERF-. 



.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.EVEN 















»d OF RECOVERY ATTEMPTS EXECUTED. 
jWRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
iWRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
I WRITE RETRY ON SAME SPOT ERROR FLAG 
iRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
»DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
jREAD/WRITE ERROfl HAS OCCURED. 
I UNRECOVERABLE ERROR HAS OCCURED. 
I ERROR RECOVERY MODE. 



t 

INTFLG:; 

EOTFLG; : 

BTFTis 

EXPOOT 

RANDOM 

VFYFLG 

ROTFLG 

SWBFLG 

LOOPCT 

IRE:: 

OROPED 

T1SWB: 

ALLEOT 

STREAM 

ERSFLG 



ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 



.BLKU 
.BLKW 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.EVEN 



4 
4 
















i INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 

lEOT/BOT FLAGS F0« EACH DEVICE CXSTATO). 

jBAD TAPE SPOT POINTER TO BT0-BT3 VIA BTADDR 

iBOT IS EXPECTED. 00 NOT ABORT ON BOT/FUNC RTI. 

jRANDOM EVERYTHING FLAG. 

I SET DURING WHITE/VERIFY COMMANO, 

I PERFORMANCE REPORT HAS BEEN REQUESTED. 

lENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 

I WRITE LOOP CONTROL (TEST 3) 

j INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 

j CURRENT UNIT HAS BEEN DROPPED 

;TEST1 SWAP BYTES FLAG 

lALL UNITS & EOT FLAG 

.INDICATES TEST ONE UNIT AT A TIME. COMPLETELY. 

»ERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 

jBADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 

iA 3 TO 12 INCH GAP MAY RESULT. 



ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 



STAFLG: 


.BYTE 





PWRFLG: 


.BYTE 





TRAPD4: 


.BYTE 





MXSCFCi 


.BYTE 






iSTART FLAG - SET BY 
iPOWER FAILURE FLAG 
jTRAPED AT 4 FLAG 
jMISCELLANEOUS FLAG 



INIT CODE IF STARTING, 
SET ONLY DURING INIT. 
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E5 



SEQ 0056 



2602 






2603 






2604 






2605 


003540 


000000 


2606 






2607 






2608 






2609 






2610 






2611 






2612 


003542 


140004 


2613 


003544 


000040 


2614 


003546 


000001 


2615 


003550 


000000 


2616 


003552 


102010 


2617 


003554 


00O001 


2618 


003556 


000001 


2619 


003560 


000007 


2620 


003562 


1O4005 


2621 


003564 


010000 


2622 


003566 


035230 


2623 


003570 


000007 


2624 


003572 


102010 


2625 


003574 


000001 


2626 


003576 


000001 


2627 


003600 


000007 


2628 


003602 


104001 


2629 


003604 


010000 


2630 


003606 


035230 


2631 


003610 


000007 


2632 


003612 


102010 


2633 


003614 


OOOOOl 


2634 


003616 


000001 


2635 


003620 


000007 


2636 


003622 




2637 


003632 


177777 


2638 


003634 


177777 


2639 


003636 


177777 


2640 


003640 


177777 


2641 


003642 


177777 



OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 



OPFLAG:} .WORD 
.EVEN 







j READ ONLY OPERATOR FLAG WORD 



I THE FOLLOWING IS THE COMMANO SEQUENCE TABLE. THE TABLE 
{HAS DEFALLT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
I CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 

I SET CHARACTERISTICS. 



} REWIND. 

jBYTE COUNT. 

I ONCE. 

iPATTERN. 

jWRITE. 

iMAX BUFFER LENGTH. 

j 15000 RECORDS. 

{PATTERN - RANDOM DATA 

jREWIND 

tBYTE COUNT 

lONE ITERATION 

l RANDOM DATA 

jREAD FWD, 

jMAX BUFFER LENGTH, 

j 15000 RECORDS. 

jRANDOM DATA 

I REWIND 

iBYTE COUNT. 

i ONCE . 

jPATTERN. 

jEXTENSION TO HOLD 1 MORE CMD 

j SOFT END OF SEQUENCE TABLE. 



CMDSEQj; .WORD 


SCH 


.WORD 


CH.EAI 


.WORD 


1 


.WORD 





CMDSE2:: .WORD 


RWD 


.WORD 


1 


.WORD 


1 


.WORD 


RANP 


.WORD 


WRT 


.WORD 


DATCNT 


.WORD 


15000. 


.WORD 


RANP 


.WORD 


RWD 


.WORD 


X 


.WORD 


1 


.WORD 


RANP 


.WORD 


RDF 


.WORD 


DATCNT 


.WORD 


15000. 


.WORD 


RANP 


.WORD 


RWD 


.WORD 


i 


.WORD 


1 


.WORD 


RANP 


.BLKW 


4 


SEQENO:i .WORD 


END 


.WORD 


ENO 


.WORD 


END 


.WORD 


END 


.WORD 


END 



I HARD END OF SEQUENCE TABLE. 



F5 
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SEQ 005 7 



2643 
2644 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2655 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 



003644 
003646 
003650 
003632 
003654 



003656 
003660 
003662 
003664 
003666 
003670 
003672 
003674 
003676 
003700 
003702 
003704 
003706 
003710 
003712 
003714 
003716 
003720 
003722 
003724 
003726 
003730 



100013 
104001 
104401 
104005 
104105 



104010 
104410 
105401 
125401 
105001 
125001 
105005 
102010 
100012 
100011 
lClOil 
105010 
105410 
100017 
100411 
10O412 
101012 
140004 
100006 
000040 
000020 
177777 



CMDTBL; 



jTHE FOLLOWING IS THE TK25 COMMAND TABLE 



DRIVE INIT. 
READ FORWARD. 
READ REVERSE. 
WRITE 
WRITE/VERIFY. 



,W0RD 


DRI 


.WORD 


RDF 


.WORD 


RDR 


.WORD 


WRT 


.WORD 


WTV 


.WORD 


SRF 


.WORD 


SRR 


.WORD 


RNR 


.WORD 


RNF 


.WORD 


RPF 


.WORD 


RPR 


.WORD 


WRR 


.WORD 


RWD 


.WORD 


M6R 


.WORD 


WTM 


.WORD 


WTR 


.WORD 


SFF 


.WORD 


SFR 


.WORD 


GES 


.WORD 


ERS 


.WORD 


UNL 


.WORD 


CLN 


.WORD 


SCH 


.WORD 


DIA 


.WORD 


JMP 


.WORD 


DLY 


.WORD 


END 



(WRITE ALL RECORDS. RDR AND 
CHECK DATA ON ALL RECORDS, RDF AND 
CHECK DATA ON ALL RECORDS,) 
SPACE "N" RECORDS FORWARD. 
SPACE "N" RECORDS REVERSE. 
READ NEXT REVERSE. I.E., SPACE FWO, READ REVERSE. 



READ FORWARD, SPACE REVERSE. 
I.E., SPACE REVERSE, READ FORWARD 
I.E., READ REVERSE, SPACE FORWARD 



READ NEXT FORWARD, I.E 

READ PREVIOUS FORWARD. 

READ PREVIOUS REVERSE. 

WRITE RETRY. 

REWIND. 

MESSAGE BUFFER RELEASE 

WRITE TAPE MARK 

WRITE TAPE MARK RETRY. 

SPACE "N" FILES FORWARD. 

SPACE "N" FILES REVERSE. 

GET EXTENOED STATUS. 

ERASE 3 INCHES OF TAPE. 

REWIND ANO UNLOAD. 

CLEAR TAPE. 

SET CHARACTERISTICS. 

DIAGNOSTIC COMMANO. 

JUMP TO THE NTH COMttAND IN THE SEQUENCE. 

DELAY "N" MS. 

END OF COMMAND TA8LE 



GLOBAL AREAS MACRO M1200 
GLOBAL DATA SECTION 



G5 
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SEQ 0058 



2676 










2677 










2678 


003732 


104 


122 


111 


2679 


003735 


122 


104 


106 


2680 


003740 


122 


104 


122 


2681 


003743 


127 


122 


124 


2682 


003746 


127 


124 


126 


2683 










2634 


003751 


123 


122 


106 


2685 


003754 


123 


122 


122 


2686 


003757 


122 


116 


122 


2687 


003762 


122 


116 


106 


2688 


003765 


122 


120 


106 


2689 


003/70 


122 


120 


122 


2690 


003773 


127 


122 


122 


2691 


003776 


122 


127 


104 


2692 


004001 


115 


102 


122 


2693 


004004 


127 


124 


115 


2694 


004007 


127 


124 


122 


2695 


004012 


123 


106 


106 


2696 


004015 


123 


106 


12,2 


2697 


004020 


107 


105 


123 


2698 


C04023 


105 


122 


123 


2699 


004026 


125 


116 


114 


2700 


004031 


103 


114 


116 


2701 


004034 


123 


103 


110 


2702 










2703 


004037 


104 


111 


101 


2704 










2705 










2706 


004042 


112 


115 


120 


2707 










2708 










2709 


004045 


104 


114 


131 


2710 










2711. 


004050 


105 


116 


104 


2712 










2713 










2714 










2715 











i THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND, 

CMDASCt; .ASCII /DRI/ jDRIVE INIT, 

READ FORWARD. 
READ REVERSE. 
WRITE 
WRITE/VERIFY. 



.ASCII 


/DRI/ 


.ASCII 


/RDF/ 


.ASCII 


/RDR/ 


.ASCII 


/WRT/ 


.ASCII 


/WTV/ 


.ASCII 


/SRF/ 


.ASCII 


/SRR/ 


.ASCII 


/RNR/ 


.ASCII 


/RNF/ 


.ASCII 


/RPF/ 


.ASCII 


/RPR/ 


.ASCII 


/WAR/ 


.ASCII 


/RWD/ 


.ASCII 


/M6R/ 


.ASCII 


/WTM/ 


.ASCII 


/WTR/ 


.ASCII 


/SFF/ 


.ASCII 


/SFR/ 


.ASCII 


/GES/ 


.ASCII 


/ERS/ 


.ASCII 


/UNL/ 


.ASCII 


/CLN/ 


.ASCII 


/SCH/ 



.ASCII /DIA/ 

.ASCII /JMP/ 

.ASCII /DLY/ 

.ASCII /END/ 
.EVEN 



(WRITE ALL RECORDS, RDR AND CHECK DATA 
ON ALL RECORDS, RDF AND CHECK DATA ON ALL RECORDS.) 
SPACE "N" RECORDS FORWARD. 
SPACE "N" RECORDS REVERSE. 

READ NEXT REVERSE. I.E., SPACE FWD READ REVERSE. 
READ NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE. 
READ PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
READ PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 
WRITE RETRY. 
REWIND. 

MESSAGE BUFFER RELEASE 
WRITE TAPE MARK 
WRITE TAPE MARK RETRY. 
SPACE "N«* FILES FORWARD. 
SPACE "N" FILES REVERSE. 
GET EXTENDED STATUS. 
ERASE 3 INCHES OF TAPE. 
REWIND ANO UNLOAD. 
CLEAN TAPE. 

SET CHARACTERISTICS. WHERE BRF-200. 40. 20. 0. 
SEE TK25 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
DIAGNOSTICS. SEE TK25 PROGRAMMING SPECIFICATION 
FOR DESCRIPTION. OOT MUST BE USED TO LOAD DIAGNOSTIC DATA 
INTO THE WRITE BUFFER BEFORE THIS CMO IS ISSUED. 
JUMP TO THE NTH COMMAND IN THE COMMAND 
SEQUENCE TABLE, WHERE N IS DEFINED IN 
THE 6 OF OPERATIONS. 

DELAY "N" MS, WHERE N IS DEFINED IN 
THE * OF OPERATIONS. 
END OF COMMAND SEQUENCE, 



-15 



GLOBAL AREAS MACRO M120O 
GLOBAL TEXT SECTION 

2717 
2718 

2719 
2720 
2721 
2722 
2723 
2724 
272 r > 
2732 
2733 
2734 
273^ 
2736 

2 738 004054 C45 116 

2739 

2740 004124 130 130 

2741 004164 103 115 
2742 

2743 004246 104 101 

2744 00*271 lib 117 

2745 004312 125 116 

2746 0043*36 122 106 
2 747 004353 124 113 

2748 004372 122 105 

2749 004417 1?5 116 

2750 004435 106 125 
2 751 004455 106 101 

2752 004^03 116 117 

2753 004520 124 101 

2754 004542 124 117 

2755 004566 103 10* 

2756 00463? 122 105 

2757 004654 125 116 

2758 004700 045 116 

2759 004 727 045 116 
2/60 004761 045 116 

2761 005030 045 104 

2762 005072 045 10* 

2763 005113 045 101 

2764 005155 045 101 

2765 005211 045 101 
2/66 005241 045 101 
2767 005275 045 116 

2766 005300 045 116 

2769 005306 045 lib 

2770 005565 045 116 

2771 005436 045 101 
2/72 005450 045 116 

p.tn 

27/4 
2775 
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SEQ 0059 



130 
104 

124 
040 
104 
103 
062 
124 
111 
116 
124 
040 
120 
117 
120 
103 
122 
045 
045 
045 
064 
116 
122 
122 
125 
107 
000 
045 
045 
045 
040 
045 



.SBTTL GLOBAL TEXT SECTION 



I THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
I MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
i MORE THAN ONE TEST, 
I - - 



FORMAT STATEMENTS USED IN PRINT CALLS 



045 CODELM: 



HALTM: : 
CMOPKMt 

WTVERM 

TOERM: 

SCERM: 

RFCERM 

NSSRM 

RLEXM 

ATTNM 

FUNRh 

FATSM 

NOINTM 

TSAM: 

TOOMM 

RNYM: 

RERM: 

URERM 

DROPDM 

AUORPM 

DTAER2 

DTAER3 

DTAER4 

DTAER5 

NURTY1 

OFLINM 

GETSTM 

CRLF;: 

CRLFSP 

RAMFHR 

RAMIOP 

RAMPO: 

RAMLIN: 



.NLIST BEX 



.ASCIZ 
.EVEN 
.ASCIZ 

.ASCIZ 
.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.LIST 
.EVEN 



/*N*AUNIT *D1*A TK25 CODE LEVEL P*03*N*N/ 

/XXX CMO - TYPE <CR> TO CONTINUE/ 

/CMO PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD}/ 

/DATA COMPARE ERROR/ 

/NO TK25 RESPONSE/ 

/UNOEFINED SPEC COND/ 

/RFC NON ZERO/ 

/TK25 NOT READY/ 

/RETRY LIMIT EXCEEDED/ 

/UNIT OFF LINE/ 

/FUNCTION REJECT/ 

/FATAL SUBSYSTEM ERROR/ 

/NO INTERRUPT/ 

/TAPE STATUS ALERT/ 

/TOO MANY INTERRUPTS/ 

/CAPSTAN RUNAWAY -GET STATUS RESULTS:/ 

/RECOVERABLE ERROR/ 

/UNRECOVERABLE ERROR/ 

/#N*ADROPPED UNIT *D1*N/ 

/■iNKAALL UNITS DROPPED*N#N/ 

"*N*ABYTE:i*04*S2*AWAS:*88*S2*AS/B:*B8*N" 

"*04*A BYTES IN ERROR OUT OF *D4*N" 

/*ANO DATA READ*N/ 

/#ARECOflD TOO LONG: >*04#A BYTESrfN/ 

/rfARECOVERED ON RETRY 0*D2*N/ 

/HAUNIT *DHA OFF LINE*N/ 

/#AGET STATUS CMO RESULTS :*N/ 

/#N/ 

/*N*S7/ 

'*N*A ********** CONTROLLER RAM DUMP *♦***+****< 

•*N#A RAM ADDRESS (OCTAL) ■ *Q3*A - *03*N* 

<*A *03*A « 

'KNKNKN 1 
BEX 



15 



GLOBAL ARFAS MACRO M1200 
GLOBAL ERROR REPORT SECTION 

2777 
2778 
2779 

2780 
2781 
2782 
2783 
2784 
2785 

2786 005460 
005460 

2792 005460 

005460 016546 003530 
005464 016546 003260 
005470 016546 002536 
005474 012746 006140 
005500 012746 000004 
005504 010600 
005506 104414 
005510 062706 000012 

2793 005514 

005514 012746 006232 
005520 012746 000001 
005524 010600 
005526 104414 
005530 062706 000004 

2794 005534 

005534 010237 006546 

2795 0055<;0 

005540 010337 003444 

2796 005544 

005544 010437 003446 
2 797 005550 004 737 006602 
2^98 005554 

005554 013702 006546 

2799 005560 

005560 010337 006546 

2800 005564 

005564 013703 003444 

2801 005570 

005570 013704 0OS446 

2802 005574 

005574 013746 CXV r >46 
005600 012746 006262 
005604 012746 000002 
005610 010600 
005612 104414 
005614 062706 000006 

2803 005620 
005620 000167 
005622 000000 
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2804 

2805 
2806 



2807 



005624 
005624 
005624 



SEQ 0060 



.SBTTL GLOBAL F.RROR REPORT SECTION 



I »♦ 



j THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 

j THAT ARE USED IN MORE THAN ONE TEST, IT ALSO INCLUDES THE ASCII MESSAGES 

$ THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 

» - - 



DTAERMt { 



104423 



L10002t 



BGNMSG DTAERM 

PRINTB 0STAER1,DEVTBLCR5),PASCNT(R5) I RECCNT(R5) 



PRINTB 0STAER7 



LET RECRED :■ R2 

LET TIME1 :- R3 

LET TIME2 : - R4 

JSR PC.RECTAP 
LET R2 :- RECRED 

LET RECRED :« R3 

LET R3 :» TIME1 

LET R4 :* TIME? 

PRINTB 4STAER6. RECRED 



EXIT 

.EVEN 
ENDMSG 



MSli 





MOV 


RECCNTCR5),~CSP) 




MOV 


PASCNTCR5), -CSP) 




MOV 


DEVTBLCR5). -CSP) 




MOV 


#STAER1, -CSP) 




MOV 


#4. -CSP) 




MOV 


SP,RO 




TRAP 


CiPNTB 




ADD 


012. SP 




MOV 


0STAER7, -(SP) 




MOV 


♦ I. -CSP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADD 


*4,SP 


j SAVE R2 






MOV 


R2. RECRED 


{SAVE R3 






MOV 


R3.TIME1 


j SAVE R4 






MOV 


R4.TIME2 


{RETRIEVE RECORD READ 






{RESTORE R2 






MOV 


RECRED 


i,R2 


{SAVE RECORD READ 






MOV 


R3. RECRED 


{RESTORE R3 






MOV 


TIME1. 


R3 


{RESTORE R4 






MOV 


TIMES, 


R4 


{PRINT RECORD READ 








MOV 


RECRED, -CSP? 




MOV 


•STAER6. -(SP) 




MOV 


•2, (SP) 




MOV 


SP.RO 




TRAP 


CfPNTQ 




ADD 


06 , HP 




.WORD 


J$JMP 




.WORD 


LA 0002 -2 . 



TRAP 



C$MSG 



J5 



GLOBAL AREAS MACRO M1200 
GLOBAL ERROR REPORT SECTION 
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!808 



2810 



2811 

2813 



2814 
2815 

2816 



2817 
2818 



'819 



2820 



005626 

005626 

005626 

005626 

005632 

005636 

005642 

005646 

005652 

005654 

005656 

005662 

005662 

005666 

005672 

005674 

005676 

00570? 

005702 

005706 

005712 

0O5712 

005714 

005714 

005716 

005720 

005724 

005724 

005730 

005730 

005734 

005740 

005744 

005746 

005 750 

005754 

005754 

005754 

005 754 

005/60 

005764 

005766 

005770 

0057 74 

005774 

006000 

006004 

006010 

006014 

006020 

006024 

006030 

006031" 

0060 34 

006040 

006040 

006044 



016546 
C16546 
016546 
012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062706 

01370? 
042702 

005302 



001016 
004 737 

010337 

013746 
012746 
012746 
010600 
104414 
062706 



012746 
012746 
0106 00 
\ 044 15 
062706 

013746 
013746 
015746 
017546 
0.13746 
012746 
012746 
010600 
104.* 15 
0u?706 

013/46 

013746 



003330 
003260 
002536 
006140 
000004 



000012 

006232 
000001 



000004 

002314 
177740 



006602 

006546 

006546 
006262 
000002 

000006 



006316 
000001 



000004 

003456 
003462 
002544 
002456 
002314 
0063 75 
000006 



ooomf, 

00232? 
002320 



STAERM: 



BGNMSG STAERM 

PR1NTB 0STAER1,DEVTBL(R5),PASCNT(R5),RECCNT(R5) 



PRINTB 0STAER7 



LET R2 :■ CMDPKT CLR.BY $177740 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 
MOV 
TRAP 
ACD 



RECCNTCR5 
PASCNTCR5 
DEVTBLCR5 
4STAER1,- 
♦4 . - SP ) 
SP.RO 
CfPNTB 
012, SP 

0STAER7, - 

Ol.-CSP) 
SP.RO 

CJPNTB 
$4 , SP 



SEQ 0061 



).-(SP) 

),-CSP) 
).-(SP) 
(SP) 



(SP) 



LET R2 



R2 



01 



IF R2 EQ 00 THEN 



JSR 

LET 



PC.RECTAP 
RECREO :- 



R3 



MOV 
BIC 

OEC 
j IF CMD IS A READ 

TST 
BNE 
RETRIEVE 



CMDPKT, R? 
0177740, R2 

R2 

R2 
50000$ 



PRINTB 0STAER6,RECRED 



iTMEN 
{AND 



l TYPE RECORD 



MOV 
READ 



R3.RECRED 



ENDIF 
PRINTX 



PRINTX 



PRINTX 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

50000$: 

0STAER2 

MOV 

MOV 

MOV 

TRAP 

ADD 

0STAER3, CMDPKT, aTSDB(R5) % MSCiPKT*MS. RFC. TSSREG.CTCC 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAM 
ADD 

#ST AER4, CMDPKT *2, CMDPKT *4, CMDPKT t» 

MOV 
MOV 



SP) 
(SP) 



RECRED.-C 
0STAER6, - 
02, -CSP) 
SP.RO 
C$PNTB 
06, SP 



0STAER2, -(SP) 
01. -CSP) 
SP.RO 
CSPNTX 
04, SP 

CTCC, (SP 
TSSREG, -( 
MSGPKT»r,S 
3TSDBCR5) 
CMDPKT. ■( 
0STAER3, - 
06 , ■ I SP ) 
SP.RO 
CiPNTX 
016.SP 



) 

SP) 

,RF"C. 

. -CSP 

SP) 

(SP) 



CSP) 



CMDPK 1 

CMDPKT 



-CSP) 

-CSP) 



I<5 



GLOBAL AREAS MACRO M1200 
GLOBAL ERROR REPORT SECTION 
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2821 



2822 



2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
283 7 
2838 
2839 
2840 



006050 
006054 
006060 
006064 
006066 
006070 
006074 
006074 
006100 
C06104 
006110 
006114 
006120 
006124 
006126 
006130 
006134 
006134 
006136 



006140 

006232 
006262 
006316 
006375 
0064 33 
006440 
0O6445 
006453 
006516 



006550 
006550 
006550 



0U746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 

000167 
000410 



045 

045 
045 
045 
045 
045 
045 
045 
045 
045 



006546 000000 



002316 
006433 
000004 



000012 

002354 
002352 
002350 
002346 
006453 
000005 



000014 



101 

101 
123 

116 
117 
117 
117 
137 
101 
117 



130 STAER1: 



120 
061 
045 
066 
066 
066 
066 
130 
066 



104423 



STACR7: 
STAER6: 

STAER2: 
STAER3: 
STAER4: 



5TAER5: 



RECRED: 



L 10003; 



PRINTX tfSTAER5,MSGPI<r*MS.XS0 > MSGPKT*MS.XSl,MSGPKTfMS.XS2,MSGPKT*MS.XS3 



EXIT 



.NLIST 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.LIST 

.EVEN 

.WORD 

ENOMSG 



MSG 



BEX 

/*AXXX CUD FAILED - UNIT #Dl*S3#APASSs*D5«S3*AREC0RD:*D5*N/ 

/*APREVI0US CMO WAS XXX/ 

/*S11*A* RECORD REA0:4D5*A */ 

/#N*ACM0PKT*S2*ATSBA* .4*ARFC*S5i<Ar$SR*S3i<ATCC*N/ 

/*06*S2*06*S2*06*Sc*06*S2*Dl*N/ 

/K06KN/ 

/*06*N/ 

/#06*N/ 

/*AXST0*S4iiAXSTHS4i<AX r »T2f<S4i<AXST3*N/ 

/*06*S2*06*S2*06*S2*06*N/ 

BEX 





SEQ 


0062 


MOV 


CMDPKT*2.-(SP) 




MOV 


4STAER4, -(SP) 




MOV 


04.-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTX 




ADD 


412, SP 




i2,MSGPKT+MS.XS3 




MOV 


MSGPKT*MS.XS3, 


■C5P) 


MOV 


MSGPKT*MS.XS2, 


- C SP ) 


MOV 


MSGPKT+MS.XS1, 


-CSP) 


MOV 


MSGPKT»MS.XSO, 


-(SP) 


MOV 


4STAER5, -(SP) 




MOV 


45, (SP) 




MOV 


SP.RO 




TRAP 


CtPNTX 




ADD 


414. SP 




.WORD 


JiJMP 




.WORD 


L10003-2-. 









{RECORD READ FROM TAPE 



TRAP 



CJMSG 



L5 



GLOBAL AREAS MACRO M1200 
GLOBAL. SUBROUTINES SECTION 



2842 
284 3 
2844 
2845 
2846 
284 7 
2848 
2849 
2850 
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2851 
2852 



2853 
2854 

2855 

2856 



2857 
2858 

2859 

2660 

2861 
2862 

2863 

2864 



006552 
006552 
006552 
006552 
006556 
006556 
006556 

006560 
006560 
006560 
006560 
006564 
006564 
006564 

006566 
006566 
006566 
006566 
006572 
006572 
006572 

006574 
006574 
006574 
006574 
006600 
006600 
006600 



005237 003476 



000002 



005237 003500 



000002 



005237 003502 



000002 



005237 003504 



000002 



.SBTTL GLOBAL SUBROUTINES SECTION 



* + 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST, 



TS4IN0:: 



L 10004: 



MODULES TO HANDLE TK25 INTERRUPTS. 

BGNSRV TS4IN0 (DEVICE 0. 

LET INTFLG :- INTFLG ♦ #1 

ENDSRV 



TS4IN1: j 



L10005: 



TS4IN2:: 



L 10006: 



TS4IN3: : 



L10007: 



BGNSRV TS4IN1 

LET INTFLG»2 :* INTFLG*2 * *1 

ENDSRV 

BGNSRV TS4IN2 

LET INTFLG »4 :« INTFLG*4 f 01 

ENDSRV 

BGNSRV T34IN3 

LET INTFLG*6 :• INTFLU*6 ♦ #1 

ENDSRV 



{SET INTERRUPT OCCURRED 

INC 



{DEVICE 1. 

;SET INTERRUPT OCCURRED 

INC 



{DEVICE 2. 

:SET INTERRUPT OCCURRED 

INC 



{DEVICE 3. 

jSET INTERRUPT OCCURRED 

INC 



FLAG. 
INTFLG 



RTI 



FLAG. 
INTFLG+2 



RTI 



FLAG, 
INTFLG*4 



RTI 



FLAG. 
INTFLG*6 



RTI 



SEQ 0063 



GLOBAL AREAS MACRO M1200 
GLOBAL SUBROUTINES SECTION 



2866 
2867 

2868 
2869 
2870 
2871 
2872 
2873 
2874 



M5 
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SEQ 0064 



2875 

2876 

2877 
2878 

2879 

2880 
2881 

2882 
2883 
2884 

2885 
2886 

2887 
2888 
288^> 

2890 

2891 

2892 
2893 



006602 
006602 
006610 
006612 
006612 
006616 
006622 
006622 
006626 
006630 
006630 
006632 
0O6632 
006634 
006640 
006640 
0O6642 
006642 
006644 
006644 
006650 
006652 
006652 
006654 
006654 
006654 
006654 
006656 
006662 
006662 
006664 
006664 
006666 
006666 
006666 
006670 
006670 
006670 
0O6670 
0O6672 
006672 
006672 
006676 
006676 



C32737 
001430 



032702 
001417 

005202 

111203 
142703 

000303 

005302 

105737 
001401 

005302 



i SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 

j PRINTS, 

; INPUTS: 

{ OUTPUTS: R3 - RECORD COUNT READ 

: REGISTERS: R2. R3, R4 

{ CALLS: 



000400 003426 



RECTAPjilF OMOD.CO SETIN CliDWRD THEN 



{READ REV FETCH 



013702 002344 
063702 003416 



000001 



177400 



003524 



111204 

142704 177400 

050403 

000401 

011203 

000402 

017703 174520 



BIT 4M0D.CQ.CMDWRD 
BEQ 50001$ 



M5GPKT*MS.RFC.R2 

DATARD.R2 

06IT00.R2 
50002$ 

R2 



LET R2 :- MSGPKT*MS»RFC r DATARD {FIND LAST READ AD. 

MOV 
ADD 
IF aeiTOO SETIN R2 THEN ;0DD AD., REASSEMBLE 

BIT 
BEQ 

LET R2 :- R2 ♦ 01 ;REC COUNT STARTING 

INC 

LET 13 :B- (R2) CLR.BY 0177400 {WITH UPPER BYTE FETCH 

MOVB (R2)»R3 
BICB 0177400, R3 

LET R3 :» SWAP R3 ; 

SUAB R3 

LET R2 :■ R2 ■ 01 {LOWER BYTE AD. 

DEC R2 

IFB SWBFLG NE 00 THEN 

TSTB SWBFLG 
BEQ 50003$ 
LET R2 :- H* - 01 {LOWER BYTE AD. ON SWAP 

DEC R2 

ENDIF 

50003$: 

LET R4 ;B" CR2) CLR.BY 0177400 {FETCH LOWER BYTE 

MOVB CR2),R4 
BICB 01774O0.R4 

LET R7, :- R3 OR R4 {MERGE BYTES 

ELSE 



LET R3 : = (R2) 

ENDIF 
ELSE 

LET R3 := 3DATARD 

ENDIF 



st.VEN AD. FETCH 



{READ FWD FETCH 



BIS 


R4,R3 


BR 
50002$: 


50004 $ 


MOV 


(R2),R3 


50004$: 




BR 
50001$: 


50005$ 


MOV 


SDATARD f R3 


50005$: 





006676 000207 



RTS 



PC 



N5 
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2897 
2898 
2899 
2900 
2901 
2902 
2903 
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2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 

2920 

2921 

2922 
2923 



006700 
006700 
006704 
006710 
006714 
006720 
006722 



012701 
012721 
012721 
012721 
005721 
000207 



006724 
006724 
006730 
006730 
006734 
006734 
006740 
006742 



012721 
012721 

012721 

005721 
000207 



003542 
140004 
C 00040 
000001 



102010 
000001 
000001 



St TRW j 



SEQ 0065 



SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 

THE FIRST ENTRY IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS*. 

CALLS: 



SETCH:; LET Rl : « OCMDSEQ 



MOV 
MOV 
MOV 
TST 
RTS PC 



0SCH.CR1)* 

odftsch.crd* 
•si.crd* 

CRD* 



•INIT COMMAND SEQUENCE TABLE POINTER. 

MOV 0CMDSEQ.R1 
; THIS CODE SETS UP A SET CHARACTERISTIC 
{COMMAND AS THE FIRST COMMAND IN THE 
•SEQUENCE TABLE. 
jSKIP PATTERN LOCATION. 



SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET CRD* 
LET CRD* 
LET CRD* 

TST CRD* 

RTS PC 



0RWD 

#1 

#1 



;CMD > REWIND. 




MOV 


♦RWD.CRD* 


•BRF. 




MOV 


41, CRD* 


;<> OF OPERATIONS. 




MOV 


#1. CRD* 


{SKIP PATTERN. 




{RETURN 





Bb 
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2926 
2927 
292ft 
2929 
2930 
2931 
2932 
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SEQ 0066 



2933 



2934 

2935 



2936 

2937 

2938 

2939 

2940 
2941 
2942 
294 3 
2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 
2952 
2953 

2954 
295S 



006744 
006744 
006750 
OO6750 
006750 
006754 
006756 
006762 
006762 
006762 
006770 
006772 
006776 
006776 
007002 
007004 
007004 
007012 
007014 
007014 
007020 
007022 
007022 
007030 
007030 
007036 
007036 
007044 
007044 
007052 
007052 
007060 
007062 
007062 
007070 
007070 
007070 
007070 
007076 
007076 
007076 
007076 
007076 
007076 
007076 
007102 
007106 
007106 
007112 
007H6 



012701 003542 



021127 177777 

001527 

004737 007706 



023737 
002116 
004737 

105737 
001435 

023727 
001031 

105737 
001026 

063737 

063737 

013737 

043737 

023727 
002003 



003420 
007600 
003521 

003426 

003522 

003442 
003440 
003442 
003436 
003424 



004737 007240 

004737 017706 

012702 000001 

004 737 017300 



003422 



104005 



003440 
003442 
003424 
00542' 

000022 



012737 000022 003424 



013737 003424 002322 



EXALLi 



SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 

DEVICES. 

INPUTS: 

OUTPUTS i R2 - TERMINATION INDICATOR (O-END OF TABLE ,1 -EOT) 

REGISTERS} 

CALLS? CMDAC, SETUP .EXSUB.CKHAE.NEXTU.FIRSTU.VFYDMT. 



LET Rl }■ OCMDSEQ 
WHILE (Rl) NE OEND DO 



JSR PC, SETUP 

WHILE NCNT LT NCNT1 DO 



J1*R PC.CMOAC 

IFB RANOOM NE 00 THEN 



IF CMOWRD EQ OWRT THEN 
IFB VFYFLG EQ 00 THEN 



lINIT SEQUENCE TA8LE POINTER. 

MOV OCMOSEQ.Rl 

I WHILE THERE ARE CMOS IN THE SEQUENCE TABLE. 

50006*} 

CMP CR1),*€N0 

BEQ 500071 
iGO SETUP THE COMMAND BLOCK, 
j WHILE THERE ARE RECORDS REMAINING} 

500101} 

CMP NCNT, NCNT 1 

BGE 50011$ 
I STORE CMO ASCII IN ERROR MESSAGE. 
I IF IN RANOOM MODE: 

TSTB RANOOM 

BEQ 500121 
|IF CMO IS A WRITE THEN} 

CMP CMOW«0.»;<<" r 
BNE 50013* 
I IF DATA IS NOT TO BE VERIFIED THEN} 

TSTB VFYFLG 
BNE 50014$ 



LET 


RANB }• 


RANB * RANS 


iGENERATE 


ADD 


RANS, RANB 


LET 


RANS {- 


RANS ♦ RANB 


j RANOOM 


ADD 


RANB, RANS 


LET 


BRFCNT 


}• RANS 


jLENGTH 







LET BRFCNT :• BRFCNT Cl.R.BY LENMSK 
IF BRFCNT LT 018. THEN 



018. 



LET BRFCNT 
ENDIF 

LET CMOPKT»CP.CNT t « BRFCNT 
{-NO IF 
FNOIF 
ENOIF 



MOV RANS. BRFCNT 
jMASK RANDOM LENGTH. 

BIC LENHSK, BRFCNT 

iDO NOT ALLOW BYTE COUNT OF LESS THAN 18, 

CMP BRFCNT.01B. 

BGE 50015$ 

tCHANGE COUNT Of 0-17 TO 18. 

MOV 018. .BRFCNT 



50015$: 

I MOVE BRF TO CMO PACKET. 

MOV BRFCNT , CMOPK T * CP ♦ CNT 



50014$ 
50013$ 



JSR PC.EXSUB 
JSR PC.CKHAt 
LET R2 : • «1 



50012$ 
I ISSUE CMO TO ALL .AWAIT {NTS, CHECK STATUS, 
j CHECK HALT AFTER EACH CMO Fl AG, 
I SE T ALL UNITS AT BOT/EOT. 

MOV 01.R2 

JSR PC.FIRSTU |MN0 FIRST UNIT, 

WHILE DEVTULCR5) NE OENO UO iWHUE THERE ARE MURE UNITS} 



C6 
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SEQ 0067 



007116 
007116 
007124 

2956 007126 
007126 
007134 

2957 007136 
007136 
007144 

2958 007146 
007146 

2959 007150 
007150 

2960 007150 
007150 
007152 

2961 007152 
007152 
00 7160 
007162 
007170 
007172 

007172 
007172 
007174 
007174 
007174 
007174 
007174 
007200 
007200 
007202 

2968 007202 
007202 
007206 

2969 007210 

2970 007212 
007212 

2971 007212 
007212 

2972 O07216 
007216 

2973 007224 
007224 
007226 
007226 



2962 
2963 

2964 

2965 

2966 
2967 



29 74 
2975 
2976 



2977 

2978 
2979 
2980 
2991 



007232 
007232 
007234 
007234 
007234 
007236 



02652 7 
001426 

032737 
001406 

032765 
001001 

005002 



000411 



032765 
001404 
032737 
001001 



005002 

004737 
000746 



020227 
001001 
000412 



005237 
013737 
000656 
004 737 

000646 



005002 
000207 



002536 
000400 
000002 



000001 
000001 



017346 



000001 



003420 
003426 

016142 



177777 
003426 
003506 



003506 
003426 



003432 



IF WOO. CO SE1IN CMDWRD THEN 

IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN 
• 00 



LET R2 
ENOIF 
ELSE 



500161: 

CMP DEVTBL(R5),0END 
BEQ 500171 
I IF CMD IS REVERSE THEN: 

BIT OflOD. CO, CMOWRD 
BEQ 500201 
lIF NOT AT BOT THEN; 

BIT OXO.B0T.E0TFLGCR5) 
BNE 50021$ 
tCLEAR EOT/BOT FLAG. 
CLR R2 



500211: 
I ELSE IF CMO IS NOT REVERSE: 

BR 50022* 
50020$: 
IF 0X0, EOT NOTSETIN EOTFLG(RS) OR OCMD.CO NOTSETIN CMOWRD THEN 

BIT OXO.EOT.EOTFLG(RS) 
BEQ 50023$ 
BIT OCMO. CO, CMOWRD 
BNE 50024$ 
50023$: 
j IF NOT AT EOT OR NOT A MOTION CMD THEN: 
jCLEAR EOT/BOT FLAG. 
CLR 



LET 


R2 j 


ENOIF 




ENOIF 




JSR PC,NEXTU 
ENODO 



00 



R2 



i FIND NEXT UNIT 



50024$: 
50022$} 



50016$ 



IF R2 EQ 01 THEN 





BR 
ENOIF 


E) 


<ARTN 




LET NCNT :• 


NCNT ♦ 01 




LET PCMDWO 


1 H 


CMOWRD 




ENODO 








JSR PC.VFYOAT 






ENDDO 








LET R2 {» OQ 






tXARTNi 


RTS PC 







BR 

500171: 
I IF ALL UNIT ARE AT EOT/BOT THEN: 

CMP R2.01 

BNE 50025$ 
i RE TURN WITH R2 • 01. 

50025$: 

jUPDATE RECORD C0»JNT. 

INC NCNT 
j SAVE PREVIOUS COMMAND WORD. 

MOV CMOWRD. PCMOWD 

BR 50010$ 

50011$: 
j IF LAST CMO WAS A URITE VERIFY, THEN GO 
I VERIFY THE LAST N RECORDS OF DATA, 

BR 50006 $ 

5000 71: 
iSET NORMAL RETURN INDICATOR. 

CLR R2 
iRETURN* 
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2984 
2985 
2986 
2987 
2988 
2989 
2990 



21-MAR-64 16;45 PAGE 66^2 



D6 



SEQ 0068 



2991 
2992 
2993 
2994 



2995 
2996 

2997 



2998 
2999 

30OO 

3001 

3002 



3003 
3004 

3005 

3006 

3007 



3008 



007240 
007244 
007244 
007244 
007252 
007254 
007254 
007262 
007264 
007264 
007272 
007274 
007274 
007302 
007304 
007304 
007310 
007312 
007316 
007316 
007316 
007316 
007320 
007320 
007324 
007324 
007324 
007324 
007324 
007324 
007326 
007326 
007326 
007334 
00 7336 
007344 

007346 
007346 
007354 
007354 
007360 
007360 
007360 
007360 
007 366 
007370 
007376 
007400 



004737 017300 



026527 
001465 

032737 
001421 

032765 
001014 

032765 
001406 

105737 
001402 
004737 



002536 

000400 

000002 

000001 

003531 
010654 



000402 

004737 010654 



000435 



023727 003434 

001011 

032765 000002 

001405 



I 

t 
l 

i 

I 
i 

EXSU8:: 



177777 
003426 
003506 
003506 



000002 
003506 



016537 002550 003516 
005077 174136 



032765 000001 003506 

001404 

032737 000001 003426 

001003 



SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 

ALL INTERRUPTS, AND CHECK ALL STATUS. 

INPUTS; 

OUTPUTS: 

REGISTERS? 

CALLS'. EXCUTE.GOWAIT.NEXTU.FIRSTU. 

JSR PC.FIRSTU i SET UP FOR FIRST UNIT. 

WHILE DEVTBLCR5) NE OEND DO jWHILE THERE ARE MORE DEVICES; 

500261* 

CMP DEVT8L(R5).0END 

BEQ 5002/$ 

IF OMOD.CO SETIN CMDURD THEN | IF CMO IS REVERSE THEN: 

BIT OM0D.C0,CMOWRD 

BEQ 50030$ 

IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN jIF NOT AT BOT 

BIT *y0.B0T,E0TFLG(R5) 

BNE 50031$ 

IF 0X0. EOT SETIN E0TFLGCR5) THEN jBUT IF AT EOT 

BIT *X0.E0T,EOTFLG(R5) 



IFB ALLEOT NE 00 THEN 



JSR PC,EXf.UTE 
ENDIF 



ELSE 



JSR PCEXCUTE 
ENDIF 



ENDIF 
ELSE 



BEQ 50032$ 
jANO ALL OTHERS AT EOT 

TSTB ALLEOT 

BEQ 50033$ 

»THEN EXECUTE REV CMO 
j IF NOT ALL AT EOT, FREEZE UNITCS) AT EOT 

50033$: 
j IF NOT AT BOT AND 

BR 50034$ 

50032$: 

I NOT AT EOT, EXEC REV CMO 

50034$; 



50031$; 
l ELSE IF CMO IS NOT REVERSE; 

BR 50035$ 

50030$: 
IF CMDLG EQ 02 AND 0X0, BOT SETIN E0TFLGCR5) THEN 

CMP CMDLG. 02 

BNE 50036$ 

BIT OXO.BOT.EOfKLGCPb) 

BEQ 50036$ 

iCLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 
LET BTPT ;- BTADDRCR5) 

MOV BTADDR(R5'),BTPT 

LET 6JBTPT ; - 00 

CLR SBTPT 

ENDIF 

50036$: 
IF 0X0, EUT NOTSETIN E0TFLGCR5) OR OCMD.CO NOTSETIN CMOWRD THEN 

BIT 0X0.E0T.ECTHGCR5) 

BEQ 50037$ 

BIT OCMO.CO.CMDWRD 

BNE 50040$ 

50037$; 
I IF NOT AT EOT OR NOT A MOTION CMO THEN: 
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E6 



SEQ 0069 



3009 
3010 



3011 

3012 
3013 

3014 

3015 

3016 
3017 

3018 

3019 

3020 

3021 

3022 
3023 

3024 
3025 
3026 
3027 



3028 
3029 

3030 



3031 
3032 

3033 

3034 



007400 
007404 
007404 
007406 
007406 
007406 
007412 
007414 
007420 
007420 
007420 
007420 
007420 
007420 
007420 
007424 
007424 
007426 
007426 
007426 
007432 
0074 34 
007434 
007440 
007440 
007442 
007442 
007442 
007446 
007446 
007446 
007454 
007456 
007456 
007464 
007466 
007466 
007474 
0074 76 
007476 
007504 
007506 
007506 
007512 
007514 
007520 
007520 
007520 
007520 
007522 
007522 
007526 
007526 
007526 
007526 
007526 
007526 



004737 010654 
000405 



105737 003531 

001402 

004737 010654 



004737 017346 
000707 

105737 003523 
001403 

105037 003523 

104424 

004737 017300 



026527 002536 177777 
001450 

032737 000400 003426 
001421 

032765 000002 003506 
001014 

032765 000001 003506 
001406 

105737 003531 

001402 

004737 011274 



000402 

004737 011274 



JSR PC.EXCUTE 
ELSE 



IFB ALLEOT NE 00 THEN 



i ISSUE CMD TO TK25. 



BR 50041$ 
50040$: 



TSTB 
BEQ 



ALLEOT 
50042$ 



JSR PC.EXCUTE 




ENDIF 






50042 $: 


ENOIF 






50041$: 


ENDIF 






50035$: 


JSR PC.NEXTU 


jFIND NEXT UNIT IN TEST CYCLE. 


ENDOO 






BR 50026$ 




50027$: 


IFB RPTFLG NE 40 THEN 


j IF REPORT HAS BEEN REQUESTED THEN: 




TSTB RPTFLG 




BEQ 50043$ 


LET RPTFUG :B- 40 


iCLR THE FLAG. 




CLRB RPTFLG 


DORPT 


{PRINT THE PERFORMANCE REPORT. 




TRAP CJORPT 


ENDIF 


i 




50043$: 


JSR PC.FIRSTU 


jSET UP FOR FIRST UNIT. 



000420 



WHILE DEVTBLCR5) NE OEND DO jWHILE THERE ARE MOKE DEVICES: 

50044$: 

CMP DEVTBL(R5),*END 

BEQ 50045$ 

IF OMOD.CO SETIN CMDWRD THEN j IF CMD IS REVERSE THEN: 

BIT *MOO,C0.CMDURD 

BEQ 50046$ 

IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN j IF NOT AT BOT 

BIT OXL.B0T.EOTFLGCR5) 

BN£ 50047$ 

IF 4X0, EOT SETIN E0TFLGCR5) THEN {BUT IF AT EOT 

BIT «XO.E0T,EOTFLG(R5) 

BEQ 50050$ 

IFB ALLEOT NE 00 THEN jANO ALL OTHERS AT EOT 

TSTB ALLEOT 

BEQ 50051$ 

JSR PC.GOWAIT {THEN WAIT FOR CMC END 

ENDIF {IF NOT ALL AT EOT. DO NOT WAIT 

50051$: 
ELSE {NOT AT BOT. AND NOT AT EOT 

BR 50052$ 

50050$: 
JSR PC.GOUAIT {WAIT FUR INT, CHECK STATUS. 

ENDIF 

50052$: 
ENDIF 

5004 7$: 
ELSE j ELSE IF CMD IS FORWARD: 

BR 50053$ 
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F6 



007550 
3035 007530 
007530 
007536 
007540 
007546 
007550 
3036 

3037 007550 

3038 007554 
007554 
007556 

3039 007556 
007556 
007562 

3040 007564 

3041 007570 
007570 

3042 007570 
007570 

3043 007570 
007570 

3044 007570 

3045 007574 
007574 
007576 

3046 007576 



032765 
001404 
032737 
001003 



004737 
000405 



105737 
001402 
0O4737 



004737 
000724 
000207 



000001 
000001 

011274 

003531 
011274 



017346 



003506 
003426 



SEQ ('070 



50046$: 
IF 0X0. EOT NOTSETIN E0TFLGCR5) OR flCMD.CO NOTSETIN CMOWRD THEN 

BIT 4X0.E0T.E0TFLGCR5) 
BEQ 50054$ 
BIT 4CMD.C0.CMDWRD 
BNE 50055$ 
50054$: 
l IF NOT AT EOT OR NOT A MOTION CMD THEN: 
JSR PC.GOWAIT {WAIT FOR INT, CHECK STATUS. 

ELSE 



IFB ALLEOT NE 00 THEN 



JSR 

END IF 


PC, 


.GOWAIT 


ENDIF 






ENOIF 






JSR 
ENDDO 


PC 


»NEXTU 



RTS PC 



BR 
50055$: 


50056$ 


TSTB 
BEQ 


ALLEOT 
50057$ 


50057$: 




50056$: 




50053$: 

{FIND NEXT UNIT IN TEST 


CYCLE. 


BR 
50045$: 


50044$ 



{RETURN. 



G6 
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3049 
3050 
3051 
3052 
7,056 
3054 
3055 
3056 
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3057 
3058 
3059 
3060 
3061 

3062 
3063 
3064 

3065 

3066 

3067 
3068 
3069 
3070 

3071 
3072 
3073 
3074 
3075 
3076 
307 7 
3078 

3079 



3080 
3081 

3082 



3084 
3085 
3086 



007600 
007600 
007604 
007610 
007614 
007620 
007624 
007624 
007630 
007634 
007636 
007636 
007642 
007642 
007646 
007646 
007652 



007654 
007654 
007656 
007656 
007656 
007662 
00/664 
007664 
007670 
007670 
007672 
007672 
007672 
007674 
007674 
007676 
007 700 
007704 



013704 
C04737 
112337 
112337 
111337 

013704 
004737 
000240 

112337 

112337 

111337 
000207 



003426 
007654 
006142 
006143 
006144 

003432 
007654 



006256 
006257 
006260 



005003 

026304 003644 
001403 

062703 000002 

000772 

010304 

006203 

060403 

062703 003732 

000207 



GCMDA: 



THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 

COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 

CONTAINS CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 . 

CALLS: GCMDA 



CMDAC:: LET R4 

JSR 
MOVB 
MOVB 
MOVB 
LET R4 



- CMDWRD 

PC, GCMDA 
(R3)*,STAER1*2 
(R3)*.STAER1»3 
(R3),STAERlf4 
■ PCMDWD 



JSR PC, GCMDA 

NOP 

LET S1AER7*24 jB- (R3)* 

LET STAER7*25 :B- (R3)* 

LET STAER7*26 :B- (R3) 

RTS PC 



jR4 - CMD BINARY, 

MOV CMDWRD , R4 
{GET CMD ASCII. 
{MOVE CMD ASCII 

{INTO MSG 4 

jR4 • PREVIOUS CMD BINARY. 



{GET CMD ASCII, 
i MOVE CMD ASCII 

» 

{INTO MSG. 



MOV 


PCMDWD, R4 


MOVB 


CR3)*,STAER7»24 


MOVB 


(R3)*,STAER7*25 



MOVB 



(R3) $ STAER7*26 



{RETURN, GO EXECUTE NEXT FUNCTION. 



SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4 . 

ADDRESS OF ASCII 1ST WORD IS RETURNED IN R3. 

INPUTS: R4 - PRESENT COMMAND WORD. 

OUTPUTS: R3 - ADDRESS OF PRESENT COMMAND ASCII. 

REGISTERS: 



CALLS: 










LET R3 


: - 00 








WHILE ( 


:mdtbl(R3) 


NE 


R4 


DO 


LET 1 


33 j- R3 f 


02 






ENDDO 










LET R4 


: * R3 








LET R3 


I- R3 SHIFT 


-1 




ADO 
ADD 
RTS 


R4 ( R3 

OCMDASC,! 

PC 


R3 







tINIT CMO TBL POINTER. 




CLR 


R3 


jUNTIL CURRENT CMO IS FOUND: 


50060$: 




CMP 


CMOIBL(R3).R4 


BEQ 


50061$ 


{SEARCH CMO TABLE. 




ADD 


02.R3 


BR 


50060$ 


50061$: 





MOV 



R3.R4 



{POINT TO ASCII FOR THAT COMMAND 

ASR R3 



{RETURN, 



H6 
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3088 










3089 










3090 










3091 










3092 










3093 










3094 










3095 


007 706 










007706 


005037 


003434 




3096 


007712 


012137 


002314 




3097 


007716 


011137 


002322 




3098 


007722 


011137 


003424 




3099 


007726 


013702 


002314 




3100 


007732 


042702 


177740 




3101 


007736 


010203 






3102 


007740 


162703 


000010 




3103 


007744 


001003 






3104 


007746 


011137 


002316 




3105 


007752 


000461 






3106 


007754 










007754 


023727 


002314 


100011 




007762 


001003 






3107 


007 764 










007 764 


012737 


000002 


003434 


3108 


D07772 
007772 








3109 


007772 


010203 






3110 


007774 


162703 


000001 




3111 


OlOOOO 


001017 






3112 


010002 


013737 


003416 


002316 


3113 


010010 










010010 


072737 


000400 


002314 




010016 


001-04 






3114 


010020 










010020 


012737 


000004 


003434 


3115 


010026 
010026 
010C30 


000403 






3116 


010030 










010030 


012737 


00C006 


003434 


3117 


010036 
010036 








3iia 


010036 


000427 






3119 


010040 


010203 






3120 


010042 


162703 


000004 




3121 


010046 


001011 






3122 


010050 










010050 


012737 


002446 


002316 


3123 


010056 


012737 


000010 


002322 


3124 


010064 










010O64 


011137 


002454 




3125 


010070 


000412 






3126 


010072 


010203 






3127 


010074 


162703 


000006 




3128 


010100 


001006 






3129 


010102 


012737 


000020 


002322 


3130 


010110 


012737 


003414 


002316 
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SEQ 0072 



2$: 



1$ 



4$j 



THIS SUBROUTINE LOADS THE TK2S COMMAND PACKET FROM ONE 

ENTRY IN THE SEQUENCE TABLE. 

INPUTS j 

OUTPUTS: 

REGISTERS: R2 , R3. 

CALLS; GENPAT, 



SETUP:: LET CMDLG :- 00 



MOV 


CRD*. CMOPKT 


MOV 


CRD.CMOPKTtCP.CNT 


MOV 


(Rl).BRFCNT 


MOV 


CMOPKT, R2 


BIC 


0NCMO.C.R2 


MOV 


R2.R3 


SUB 


0CMD.C3.R3 


BNE 


2* 


MOV 


(R1),CMDPKT*2 


BR 


3$ 


IF CMOPKT EQ 0WTM THEN 


LET 


CMDLG j- «2 


ENOIF 





MOV R2.R3 

SUB 0CMD.CO.R3 

BNE 1$ 

MOV OATARD , CMDPKT ♦CP . AOL 

IF 0MOD.CO SETIN CMDPKT THEN 



LET CMDLG :* 04 
ELSE 



LET CMDLG : 

ENDIF 



06 



BR 31 

MOV R2.R3 

SUB 0CMD.C2.R3 

BNE 4 $ 

LET CMDPKT ♦CP.ADl. 



OSCHBK 



MOV 0SCHCNT , CMOPKT ♦ CP , CNT 
LET SCHBK*6 j - (Rl) 

BR 3$ 

MOV R2.R3 

SUB *CMD.C1!CMD.C2,R3 

BNE 3$ 

MOV 0DIACNT .CMDPKT »CP.CNT 

MOV 0DIABLK . CHOPK T * CP * ADL 



jCLR CMD LOGGING CODEC DISABLES LOGGING) 

CLR CMDLG 
j LOAD THE COMMAND WORD. 
lLOAD THE BYTE/RECORO/FILE COUNT. 
;SAVE BRF FOR THIS COMMAND. 
>GET CMC, 

I CLR ALL BUT CMD BITS, 
j SAVE IT TWICE. 
I POSITION COMMAND? 
j BR IF NOT. 
jMOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 

lIF CMD IS A WRITE TAPE MARK THEN: 

CMP CMOPKT, 0WTM 
BNE 50062$ 
jWTM LOGGING CODE IS 2. 

MOV 02. CMDLG 

50062$: 

j IS IT A READ? 

»BR IF NOT. 

j IF SO, LOAD THE BUFFER ADDR. 

; IF CMD IS A READ REV THEN: 

BIT *M00. CO, CMDPKT 

BEQ 50063$ 
j LOGGING CODE IS 4. 

MOV 04. CMDLG 
j ELSE - IF CMD IS A READ FWD: 

BR 50064$ 

50063$: 
l LOGGING CODE IS 6. 

MOV 06, CMDLG 

50064$: 
{CONTINUE. 
iIS IT 

{A SET CHARACTERISTICS CMO? 
j BR IF NOT. 
j SET UP ADR LO FOR SET CHAR. 

MOV 0SCHBK , CMDPKT ♦ CP . ADL 
j SET BUFFER EXTENT 
j STORE CHARACTERISTIC CODE IN SCH BLOCK. 

MOV CR1),SCHBK*6 
j CONTINUE. 
iIS IT 

»A DIAGNOSTIC COIA) CMD? 
iBR IF NOT. 
{LOAD BUFFER EXTENT. 
j LOAD BUFFER ADR LOW. 
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16 



3131 


010116 


005721 




3$; 


TST (RD* 


3132 


010120 








LET NCNT1 :- CRD* 




010120 


012137 


003422 






3133 


010124 








LET NCNT :■ #0 




010124 


005037 


003420 






3134 


010130 


012137 


003454 




MOV (R1)*,PATERN 


3135 


010134 


010203 






MOV R2.R3 


3136 


010136 


162703 


000005 




SUB OCMD.C0JCMD.C2.R3 


3137 


010142 


001010 






BNE 5$ 


3138 


010144 


013737 


003414 


002316 


MOV DAT AWT , G ^OPKT *CP . ADL 


3139 


010152 


004737 


010264 




JSR PC.GENPAT 


3140 


010156 








LET CMDLG :■ 02 




010156 


012737 


000002 


003434 




3141 


010164 






5$: 


IF 4VFY.C SETIN CMDPKT THEN 




010164 


032737 


000100 


002314 






010172 


001407 








3142 


010174 








LET VFYFLG :B« #1 




010174 


112737 


000001 


003522 




3143 


010202 


042737 


000100 


002314 


BIC 0VFY.C, CMDPKT 


3144 


010210 
010210 
010212 


000402 






ELSE 


3145 


010212 








LET VFYFLG jB- 00 




010212 


105037 


003522 






3146 


010216 
010216 








ENDIF 


314/ 


010216 








LET PCMOWD :• CMDWRD 




010216 


013737 


003426 


003432 




3148 


010224 








LET CMOWRD :- CMOPKT 




010224 


013737 


002314 


003426 




3149 


010232 








IFB SWBFLG NE #0 THEN 




010232 


105737 


003524 








010236 


001403 








3150 


010240 








LET CMDPKT :- CMDPKT SET. BY 




010240 


052737 


010000 


002314 




3151 


010246 
010246 








ENDIF 


3152 


010246 


042737 


004000 


002314 


BIC OBRF.C, CMOPKT 


3153 


010254 








LET CMOSAV :* CMDPKT 




010254 


013737 


002314 


003430 




3154 


010262 


000207 






RTS PC 



SEQ 0073 

I POINT TO N CNUM8ER OF TIMES TO EXECUTE THIS INSTRUC 
{SAVE NUMBER OF OPERATIONS 

MOV CR1)»,NCNT1 
iCLEAR OPERATION COUNTER. 

CLR NCNT 
f SAVE PATTERN CODE FOR CURRENT CMD. 
iIS IT 
lA WRITE? 
I BR IF NOT. 

jLOAD WRITE BUFFER LO ORDER. 
jGO GENERATE THE WRITE PATTERN. 
, WRITE LOGGING CODE IS 2. 

MOV 02.CMDLG 
j IF DATA VERIFICATION IS REQUIRED: 

BIT OVFY.C. CMDPKT 

BEQ 50065$ 
jSET VERIFY FLAG. 

MOVB 01 .VFYFLG 
{CLEAR VERIFY BITCNOT USED BY HARDWARE), 
j IE DATA VERIFICATION IS NOT REQUIRED} 

BR 50066$ 

50065$: 
j CLR VERIFY FLAG. 

CLRB VFYFLG 

50066$; 
j SAVE PREVIOUS CMD WORD. 

MOV CMOWRD, PCMDWD 
{SAVE PRESENT CMO WORD. 

MOV CMOPKT. CMDWRD 
{IF SWAP BYTES IS ENABLED: 

TSTB SWBFLG 

BEQ 50067$ 
0SWB.C {SET SWAP BIT IN COMMAND. 

BIS OSWB.C. CMDPKT 

50067$: 
iClR BRF BIT (INTERNAL ONLY). 
{SAVE 1ST WORD OF COMMAND PACKET, 

MOV CMDPKT. CMDSAV 
;RETURN. 



J6 
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3156 








3157 








3158 








3159 








3160 








3161 








3162 








3163 


010264 








010264 


013703 


003454 




010270 


006303 




3164 


010272 








010272 


013704 


003424 




010276 


005204 




3165 


010300 








010300 


042704 


000001 


3166 


010304 








010304 


162704 


000002 


316? 


010310 








010310 


013702 


003414 




010314 


062702 


000002 


3168 


010320 


004773 


010326 


3169 


010324 


000207 




3170 








3171 








3172 








3173 








3174 


010326 


010350 




3175 


010330 


010406 




3176 


010332 


010426 




3177 


010334 


010436 




3178 


010336 


010462 




3179 


010340 


010474 




.3180 


010342 


010506 




3181 


010344 


010526 




318? 


010346 


010652 




3183 








3184 








3185 








3186 








3187 


010350 








010350 


012703 


000400 


3188 


010354 








010354 


162704 


000002 


3189 


010360 


100411 




3190 


010362 








010362 


010322 




3191 


010364 








010364 


062703 


001002 


3192 


010370 








010370 


020327 


001000 




010374 


001002 




3193 


010376 








010376 


012703 


000400 


3194 


0.10402 
010402 






31V5 


010402 


000 764 




3196 


010404 


000207 
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SEQ 0074 



I 
1 

GENPAT 



THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 
INPUTS: 
OUTPUTS: 

REGISTERS: R2 t R3, R4 . 
CALLS: PATRO - PATR7 

LET R3 



PATERN SHIFT 1 



I SETUP PATTERN ROUTINE POINTER 









MOV 


PATERN, R3 








ASL 


R3 


LET 


R4 


:■ BRFCNT * 01 


j SET LENGTH OF WRITE BFR 

MOV 
INC 


BRFCNT, R4 
R4 


LET 


R4 


:- R4 CLR.BY #1 


{ROUNDED UP TO NEXT WORD 

BIC 


01, R4 


LET 


R4 


:- R4 - 02 


(WITH FIRST WORD RESERVED 

sue 


02, R4 


LET 


R2 


:- DATAWT ♦ 02 


j FOR RECORD COUNT 

MOV 
ADD 


DATAWT, R2 
02, R2 


JSR 




PC.SPATTBLCR3) 


iGO GENERATE THE APPROPRIATE 


PATTERN. 


RTS 




PC 


»RETURN TO SETUP SUBROUTINE. 





»TK25 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
{CORRECT DATA PATTERN GENERATING ROUTINE, 



PATTBL: PATRO 
PATR1 
PATR2 
PATR3 
PATR4 
PATR5 
PATR6 
PATR7 
PATR8 



{INCREMENTING PATTERN, 
PATRO: ; LET R3 :• 0400 
1$: LET R4 j- R4 02 



j INCREMENTING PATTERN, - 377 

; ALL ONES PATTERN 

{ ALL ZEROES PATTERN 

{ '1' BIT SHIFT, RIGHT TO LEFT 

t «0' BIT SHIFT, RIGHT TO LEFT 

j ALTERNATE ' J C ' 1* WITH ALT. BYTES COMPL . 

j ALTERNATE BYTES OF 000 AND 377 

, RANDOM PATTERN. 

j DUMMY. NO PATTERN, JUST EXITS. 



- 377. 



{DECREMENT WORD COUNT. 



MOV 

sue 



0400, R3 
02, R4 



2$: 



BMI 2$ 
LET (R2)» :- 


R3 


LET Rl 


: - R3 


* 01002 


IF R3 


EQ 01000 THEN 


I FT 


R3 j- 


0400 


ENDIF 






BR 
RTS 


li 
PC 





I BR IF DONE. 
{STORE DATA WORD. 

MOV R3 (R2)» 
{UPDATE PATTERN. 

ADD 01002, R3 
{IF PATTERN HA5 WRAPPED AROUND THEN: 

CMP R3, 01000 

BNE 50070 5 
lINIT THE PATTERN AGAIN. 

MOV 0400, R3 



{DO IT AGAIN. 
{RETURN. 



50070$: 



Kb 
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SEQ 0075 



3197 
3198 
3199 
3200 
3201 

3202 
3203 
3204 
3205 
3206 



010406 
010412 
010412 
010416 
010420 
010422 



162704 
100402 
010322 
000773 



010424 000207 



{ALL ONE'S PATTERN 



012703 177777 



000002 



PATR1: : 


MOV 




0-1.R3 


a ALL ONES PATTERN} , 




ZROPAT: 


LET 


R4 


:- R4 - 02 


1 DECREMENT BYTE COUNT. 

SUB 


42. R 




BMI 




1$ 


j DONE r, BR IE YES. 






MOV 




R3.CR?)* 


iIF NOT LOAD NEXT BYTE WITH 


PATTERN. 




BR 




ZROPAT 


{DO IT AGAIN. 




U: 


RTS 




PC 


jRETURN. 





Lb 
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SEQ 0076 



i ALL ZEROES PATTERN. 



3209 














3210 


010426 


005003 




PATR2:: 


CLR R3 


iCLR PATTERN REGISTER. 


3211 


010430 


004737 


010412 




JSR PC.ZROPAT 


{GO GENERATE IT. 


3212 
3213 

3214 


010434 


000207 






RTS PC 


{RETURN. 










{ONE BIT WALKING FROM 


R TO L IN A FIELD OF ZEROES. 


3215 














3216 


0104 36 


012703 


000401 


PATR3: : 


MOV 3401.R3 


jINIT PATTERN REGISTER. 


3217 


010442 






WLKZRO: 


LET R4 :- R4 - #2 


{DECREMENT WORD COUNT. 




010442 


162704 


000002 






SUB 


3218 


010446 


100404 






BMI 1$ 


{ BR IF DONE. 


3219 


010450 


010322 






MOV R3.CR2)* 


{LOAD DATA. 


3220 


010452 


006303 






ASL R3 


{SHIFT PATTERN. 


3221 


010454 


005503 






ADC R3 


{ADD CARRY BACK INTO PATTERI 


3222 


010456 


000771 






BR WLKZRO 


{DO IT AGAIN. 


3223 


010460 


000207 




1$: 


RTS PC 


{RETURN. 


3224 














3225 
3226 
3227 










{ZERO BIT WALKING FROM R TO L IN A FIELD OF l'S. 


010462 


012703 


177376 


PATR4:: 


MOV #177376, R3 


ilNIT PATTERN REGISTER. 


3228 


010466 


004737 


010442 




JSR PC.WLKZRO 


{GO GENERATE ?IT. 


3229 


010472 


000207 






RTS PC 


{RETURN, 


3230 














3231 










{ALTERNATING ONE AND J 


JERO BITS WITH ALTERNATE BYTES 


3232 










{COMPLEMENTED. 




3233 














3234 


010474 


012703 


125125 


PATR5:: 


MOV #125125, R3 


ilNIT PATTERN REGISTER. 


3235 


010500 


004737 


010412 




JSR PC.ZROPAT 


{GO GENERATE IT. 


3236 


010504 


000207 






RTS PC 


{RETURN. 


3237 














323* 










{ALTERNATING BYTES OF 


000 AND 377. 


3239 














3240 


010506 


012703 


177400 


PATR6: j 


MOV #177400. R3 


{INIT PATTERN REGISTER. 


3241 


010512 






1$: 


LET R4 ;* R4 - #2 


{DECREMENT WORD COUNT, 




010512 


162704 


000002 






sue 


3242 


010516 


100402 






BMI 2* 


I BR IF DONE. 


3243 


010.")20 


010322 






MOV R3,(R2)t 


{LOAD DATA. 


3244 


010'. >22 


000773 






BR li 


{DO IT AGAIN. 


3245 
3246 


010t24 


000207 




2$: 


RTS PC 


{RETURN. 


324 7 
3248 
3249 










{RANDOM PATTERN GENERATOR 


010526 






PATR7; j 






3250 


010526 


012737 


001233 


010644 


MOV 0R51.RAN1 


{SET UP THE SEED 


3251 


010534 


012737 


007622 


010646 


MOV 0KS2.RAN2 


{SET UP THE SEED 


3252 


010542 


012737 


000000 


010650 


MOV <?RS3,RAN3 


{SET UP THE SEED 


3253 


010550 






Ui 


LET R4 i ■ R4 - #2 


{DECREMENT WORD COUNT 




010550 


162704 


000002 






SUB 


3254 


010554 


100432 






BMI GIT 


{BR IF DONE. 


3255 


010556 


010346 






MOV R3, CSP) 




3256 


010560 


013703 


010644 




MOV RAN1.R3 


{MOVE THE FIRST SEED INTO R 


3257 


010564 


000241 






CLC 


{CLEAR THE CARR^i FLAG 


3258 


010566 


005337 


010650 




DEC RAN3 


{DECREMENT THE THIRD SEED 


3259 


010572 


006103 






ROL R3 


• 


3260 


010574 


006103 






ROL R3 


{ 


3261 


010576 


063703 


010646 




ADD RAN2.R3 


{ADD THE SECOND SEED TO R3 



02.R4 



*2,R4 



#2,R4 
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3262 


010602 


0.10337 


010644 


3263 


010606 


063703 


010650 


3264 


010612 


006103 




3265 


010614 


006103 




3266 


010616 


063703 


010646 


3267 


010622 


006103 




3268 


010624 


006103 




3269 


010626 


010337 


010646 


3270 


010632 


012603 




3271 


010634 


013722 


010646 


3272 


010640 


000743 




3273 


010642 


000207 




3274 








3275 


010644 


000000 




3276 


010646 


000000 




32?7 


010650 


000000 




3278 




001233 




3279 




00 7622 




3280 




000000 




3281 








3282 








3283 








3284 


0.10652 


000207 





M6 



6;45 


PAGE 70- 


1 




hOV 


R3.RAN1 




ADD 


RAN3.R3 




ROL 


R3 




RCL 


R3 




ADD 


RAN2.R3 




ROL 


R3 




ROL 


R3 




MOV 


R3.RAN2 




MOV 


CSP)*,R3 




MOV 


RAN2,(R2)+ 




BR 


1$ 


GIT: 


RTS 


PC 


RANI; 


: .WORD 





RAN2: 


: .WORD 





RAN3: 


: . WORD 





RSI 


■ M 


1233 


RS2 


9 ■ 


7622 


RS3 


■ m 






5 NO PATTERN GENERATION. 

PATR8:? RTS PC 



SEU 0077 



PUT IT ALL IN THE FIRST SEED 
PUT THE THIRD SEED INTO R3 



{ADD THE SECOND SEED TO R3 



PUT IT IN THE SECONG SEED 

RESTORE R3 

PUT * IN BUFFER 

CONTINUE 

RETURN 



{RETURN. 
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N6 



SEQ 0078 



3294 
3295 
3296 



3297 
3298 



3299 
3300 
3301 

3302 
3303 

3304 

3305 
3306 



3307 
3308 
3309 



3310 
3311 
3312 
3313 
3314 
331!; 



010654 

010654 

010662 

010662 

010662 

010662 

010666 

010666 

010672 

010674 

010700 

010700 

010702 

010704 

010706 

010710 

010714 

010716 

010716 

010716 

010716 

010724 

010726 

010726 

010734 

010736 

010736 

010742 

010746 

010746 

010746 

010754 

010756 

010762 

010766 

010766 

010770 

010770 

010770 

010774 

010774 

011002 

011002 

011002 

011002 

011006 

011006 

011010 

ouoio 

011010 



005337 

005737 

001011 
004 737 

104455 
000002 
004353 
005626 
004737 
000566 



032775 
001756 

023727 
001022 

010537 
004737 



026527 

001405 
004 737 
004737 

000767 



013705 
016537 

016503 
005002 



003444 
003444 
011726 



THIS SUBROUTINE INITIATES TK25 

AND CHECKS FOR TK25 RESPONSE. 

INPUTS; 

OUTPUTS: 

REGISTERS: 

CALLS: 



R2 R3 

dropu/movmsg. 



012737 177777 003444 



017402 



000200 002466 



003426 140004 



003460 
017300 



002536 177777 

011672 
017346 



003460 

002506 002446 

002506 



EXCUTE::LET TIME1 :- #-1 
REPEAT 

LET TIME1 :* TIME! - 01 
IF TIME1 EQ #0 THEN 



JSR PC.MOVMSG 

ERRDF 2,NSSRN,STAERM 



JSR PC.DROPU 
BR EXCRTN 
ENOIF 

UNTIL 4TS.SSR SETIN 8TSSRCR5) 



IF CMDWRD EQ OSCH THEN 



LET R5SAVE : - R5 

JSR PC.FIRSTU 

WHILE DEVTBLCR5) Nt ttEND >0 



JSR PC, USSR 
JSR PC.NEXTU 
ENODO 



LET R5 :* R5SAVE 
LET SCHBK :* MSGPKACR5) 
ENDIF 

LET R3 :» M5GPKACR5) 

LET R2 i» 40 

WHILE R2 NE 0M5GCNT DO 



COMMAND EXECUTION 



FIRSTU, NEXTU, USSR. 



iINIT TIMEOUT COUNTER. 

MOV tf-l.TIMEl 
WAIT - 

50071$: 
UPDATE TIMEOUT COUNTER. 

DEC TIME1 
IF TIMED OUT: 

TST TIME1 
BNE 50072$ 
jMOVE CURRENT PACKET NSG. 
{REPORT TK25 NOT READY 





TRAP 


C$ERDF 




.WORD 


2 




.WORD 


NSSRM 




.WORD 


STAERM 


{DROP THE UNIT. 






{RETURN. 







020227 000016 



50072$: 
{WAIT UNTIL DEVICE IS READY. 

BIT <HS.STR,6)TSSRCR5) 

BEQ 50071$ 
{IF WE ARE DOING A SET CHAR CMD THEN: 

CMP CMDWRD, tfSCH 

BNE 50073$ 
{SAVE CURRENT DEVICE POINTER. 

MOV R5.R5SAVE 
{FIND FIRST UNIT. 

50074$: 

CMP DEVTBL(R5).*END 

BEQ 50075$ 
{WAIT FOR UNIT READY OR TIME OUT, 
{FIND NEXT UNIT. 

BR 50074$ 

50075$: 
} Rr STORE CURRENT DEVICE POINTER. 

MOV R5SAVE.R5 
{SET UP ADR OF MSG PKT IN SCH BLOCK, 

MOV MSGPK AC R5), SCHBK 

50073$: 

{ ADR OF THIS UNIT'S MSG PACKET, 

MOV MSGPKACR5).R3 

{CLR COUNTER. 

Cl R R° 

{WHILE THERE ARE MORE LOCATIONS: 

50076$: 

CMP R2.4MSGCNT 



fj I 
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011014 


001405 






5516 


011016 










011016 


012725 


17 7777 




5517 


011022 










011022 


062702 


000002 




3518 


011026 
011026 
011050 


000770 






5519 


011030 


105757 


002212 




5520 


011054 


001023 






5521 


011056 










011056 


126527 


0034 76 


000001 




011044 


003412 






5522 


011046 










011046 


017537 


002466 


005462 


3525 


011054 
011054 
011056 
011060 
011062 


104455 
000017 
004542 
005626 






3524 


011064 


004737 


017402 




5525 


011070 


000500 






5526 


011072 
011072 








5527 


011072 










011072 


005065 


0034 76 




5328 


011076 


052737 


000200 


002514 


5529 


011104 










011104 


105737 


0034 75 






011110 


001005 






5550 


011112 










011112 


005265 


005550 




5531 


011116 










011116 


016577 


005330 


172270 


5352 


011124 
011124 








5535 


011124 










011124 


023727 


002114 


000005 




011152 


001040 








011134 


023727 


003426 


104005 




011142 


001054 






5554 


011144 
011144 


005046 








011146 


115716 


003525 






011152 


065716 


000001 






011156 


111657 


003525 






011162 


062706 


000002 




3555 


011166 










011166 


123737 


005525 


000003 




011174 


005417 






5356 


011W6 










011176 


012727 


000025 






011202 


OOOCOO 








011204 


013727 


002116 






011210 


000000 








011212 


00536/ 


177772 






0U216 


001375 
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SEQ 0079 



111 



LET (R3). {- tf-1 
LET R2 j- R2 ♦ 02 
ENODO 



TSTB DINT 
BN€ 1$ 

IFB INTFLGCR5) GT 01 THEN 



LET TSSREG t- Si'SSR(R5) 
ERRDF 15 t T00MM,STAERM 



JSR PC.DROPU 
6R EXCRTN 
ENOIF 

LET INTFLGCR5) j- 00 

BIS OIE.C.CMOPKT 

IFB ERRREC EQ #0 THEN 



LET RECCNTCR5) s- RECCNTCR5) 

LET QOATAWT j- RECCNTCR5) 
ENOIF 
IF LITEST EQ 05 ANO CMOWRD EQ OWRT THEM 

LET LOOPCT :B- LOOPCT ♦ 1 



BEQ 5007 71 

iINIT THE MSG PACKET WITH ALL l'S 

MOV 0-l.(R3)» 

lUPDATE counter. 

ADO 02.R2 

BR 500761 

50077$. 
lARE INTERRUPTS DISABLED. 
I BR IF YES. 

j IF MORE THAN ONE INTERRUPT HAS OCCURED: 

CMPB INTFLG(R5),01 

BLE 501001 

jFREEZE THE CURRENT STATUS REG FOR PRINT 
MOV 8TSSRCR5), TSSREG 

iREPORT TOO MANY INTERRUPTS. 

TRAP CIERDF 

.WORD 15 
.WORD TOOMM 
.WORD STAERM 
jDROP THE UNIT 
jRETURN • UNIT HAS BEEN DROPPED, 

50100$. 

iCLR INTERRUPT FLAG FOR THIS DEV. 

CLR INTFLGCR5) 

iSET INT ENABLE BIT, 
I IF NOT RETRYING 

TSTB ERRREC 

BNt 50101$ 

01 

INC RECCNUR5) 

j THEN UPDATE REC COUNT TO WRITE IT ON TAPE 

RECCNT(R5),Q0ATAWT 



IFB LOOPCT GT 3 THEN 
DELAY 21» 



MOV 

50101$; 

CMP 
BNE 
CMP 
BNE 

CLR 

MOVB 

ADD 

MOVB 

ADD 

CMPB 
BLE 



LITEST, 03 

50102$ 
CMOWRD. OWRT 
501021 

-<SP) 

LOOPCT, (SP) 
l.(SP) 
(SP). LOOPCT 
02, SP 

LOOPCT, 3 
50103$ 

MOV 021.. ( PC ^ • 

.WORD 

HOV LIDM.IRC)* 

.WORQ 

DK c»vPO 

BNt . -4 



C7 
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011220 


005367 


177756 






011224 


001367 






3337 


011226 










011226 


113737 


000000 


003525 


3336 


011234 
011234 








3339 


011234 
011234 








3340 


011234 


012775 


002314 


002456 


3341 










3342 


011242 










011242 


032775 


000200 


002466 




011250 


001410 






3343 


011252 


004737 


011726 




3344 


CM 256 
011256 
011260 
011262 
011264 


104455 
000003 
004271 
005626 






3345 


011266 


004737 


017402 




3346 


011272 

011272 








3347 


011272 


000207 
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SEQ 0080 



LET LOOPCT tB» 
ENOIF-' 
ENDIF 
MOV dCMOPKT , QTSDBC R5 ) 



DEC -22CPC) 

BNE , -20 

MOVB 0, LOOPCT 
50103*: 



501021: 
lLOAD TSDB WITH CMOPK T ADDRESS 
I THIS INITIATES COHMANO EXECUTION. 
IF OTS.SSR SETIN STS5RCR5) THEN I IF READY DID NOT DilOP THEN: 

BIT ♦TS.SSR.STSSRCR5) 
BEQ 50104$ 
JSR PC.MOVMSG iMOVE CURRENT MESSAGE PACKET TO COMMON. 

ERRDF 3,T0ERM,STAERM , REPORT NO TK25 RESPONSE. 

TRAP CIERDF 
.WORD 3 
.WORD TOERM 
.WORD STAERM 
JSR PCOROPU i DROP THE UNIT 

ENDIF 

50104$: 

EXCRTN* RTS PC jRETURN. 
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3349 










3350 










3351 










3352 










3353 










3354 










3355 










3356 










3357 










3358 


011274 










011274 


026527 


002536 


177774 




011302 


001001 






3359 


011304 


000563 






3360 


011306 
011306 








3361 


011306 










011306 


012737 


177777 


003444 


3362 


011314 
011314 








3363 


011314 
011314 


104422 






3364 


011316 










011316 


023727 


003432 


102010 




011324 


001020 








011326 


023727 


003426 


104005 




011334 


001014 






3365 










3366 


011336 










011336 


012727 


000050 






011342 


000000 








011544 


013727 


002116 






011350 


000000 








011352 


005367 


177772 






011356 


001375 








011360 


005367 


177756 






011364 


001367 






3367 


011366 
011366 








3368 


011366 










011366 


023727 


003426 


102010 




011374 


001014 






3369 


011376 










011376 


012727 


000012 






011402 


000000 








011404 


013707 


002116 






011410 


000000 








011412 


00536 7 


177772 






011416 


001375 








0U420 


00536 7 


177756 






011424 


001367 






5370 


011426 
011426 








3371 


011426 










011426 


023727 


003426 


105010 




011434 


001404 








011436 


023727 


003426 


105410 




011444 


001014 
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SEQ 0061 



THIS SUBROUTINE WAITS FOR THE TK25 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 

OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR. 

UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS. 

LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 

INPUTS; 

OUTPUTS t 

REGISTERS: R2. R3, 

CALLS: DROPU. MOVMSG. RECUD, CHKERR, LOG, CLRERR. 



G0WAITj;lF OEVT0LCR5) EQ ONINUSE THEN 

II 



CMP DEVTBLCR5).#NINUSE 
BNE 50105$ 
BR 
ENDIF 

50105$: 
LET TIME1 :- 0-1 jINIT TIME OUT COUNTER. 

MOV •-1.TIHE1 
REPEAT {REPEAT UNTIL INTERRUPT OCCURES: 

50106*: 
BREAK j HONOR SUPERVISOR BREAKS 

TRAP C$BRK 
IF PCMOWD EQ *RWD AND CMDWRD EQ OWRT THEN 

CMP PCMDW0,*RWD 
BNE 501071 
CMP CMOWRO.OWRT 
BNE 50107$ 
IP0S5IBLE FIRST WRITE ON TAPE 
DELAY 40. 

MOV 

.WORD 
MOV 

.WORD 
DEC 
BNE 
DEC 
BNE 
ENOIF j SO DELAY TO CALIBRATE TAPE 

50107$: 
IF CMDWRD EQ ORWD THEN |IF COMMAND WAS REWIND THEN: 

CMP CM0WRD,0RWD 

BNE 50110$ 

DELAY 10. (WAIT EXTRA 10 MSECS EACH LOOP. 



040, ,(PC)« 



L$DLY,CPC)* 



-6CPC) 

. -4 

-22(PC) 

.-20 



ENDIF 

IF CMDWRD EQ OSFF OR CMDWRD EQ 0$FR THEN 





MOV 


*io.,cpc)» 




.WORD 







MOV 


L$DLY t (PC)* 




.WORD 







DEC 


-6CPC) 




BNE 


. 4 




DEC 


-22CPC) 




BNE 


. -20 


50110$: 






CMP 


CMDWRD, 


OSFh 


BEQ 


50111$ 




CMP 


CMDWRD, 


OSFR 


BNE 


50112* 





E7 
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3372 



3373 
3374 

3375 
3376 

3377 

3378 

3379 

3380 
3381 



3382 
3383 



3384 
3385 



3386 
3387 

3388 
3389 



3390 
3391 



011446 
011446 
011446 
011452 
011454 
011460 
011462 
011466 
011470 
011474 
011476 
011476 
011476 
011476 
011502 
011504 
011504 
011510 
011510 
011512 
011512 
011512 
011516 
011520 
011520 
011524 
011526 
011526 
011526 
011526 
011532 
011532 
011534 
011536 
011542 
011544 
011544 
011544 
011550 
011552 
011552 
011560 
011564 
011570 
011570 
011572 
011574 
011576 
011600 
011604 
011604 
011610 
011614 
011614 
011616 
011616 
011622 



012727 000014 

000000 

013727 002116 

000000 

005367 177772 

001375 

005367 177756 

001367 



105737 002212 
001003 

016502 003476 

000406 



012703 000200 
005103 

017502 002466 
040302 



005337 003444 

005702 

001003 

005737 003444 

001264 



005737 003444 
001022 

016577 003330 
005377 171630 
004737 011726 

104455 
000004 
004503 
005626 
004737 017402 

012703 003476 
004737 011656 

000417 

004 73 7 011726 
004737 012012 



DELAY 12. 



501111: 



ENOir 

IFB OINT EQ 00 THEN 





SEQ 0082 


*E MARK 


COhMANOS 


MOV 


012.,(PC)» 


.WORD 





MOV 


LIDLY,(PC)» 


.UORD 





DEC 


-6CPC) 


BNE 


. 4 


DEC 


-22CPC) 


BNE 


. -20 



LET R2 
ELSE 

LET R3 

LET R2 



ENOIF 
LET TIME1 



50112$: 

I IF INTERRUPTS ARE ENABLED. 

TSTB DINT 
BNE 50113$ 

{FETCH INTERRUPT OCCURRED FLAG. 

MOV INTFLG(R5),R2 

l IF IN BRUTUS MODE: 

BR 50114$ 
50113$: 

;SET UP A MASK FOR THE DONE BIT. 

MOV 0TS,SSR,R3 
COM R3 
- 8TSSRCR5) CLR.BY R3 jFETCH DONE BIT. 

MOV 8TSSR(R5).R2 
BIC R3.R2 



INTFLGCR5) 



COMP OTS.SSR 



TIME1 - 01 



UNTIL R2 NE 00 OR TIME1 EQ 00 



171634 



50114$: 
{UPDATE TIMEOUT COLNTER. 

DEC TIME1 

{REPEAT UNTIL INTERRUPT OR READY OCCURES. 

TST R2 

BNE 50115$ 

TST TIME! 

BNE 50106$ 

50115$: 
{IF TIME OUT HAS OCCURRED: 

TST TIME1 

BNE 50116$ 

LET QOATAWT :- RECCNTCR5) - 01 {RE-ADJUST REC COUNT DOWN 

MOV RECCNTCR5).aOATAyT 

DEC SOATAWT 

JSR PC.MOVMSG {MOVE CURRENT MSG PACKET TO COMMON AREA. 

ERRDF 4.N0INTM.STAERM {REPORT NO INTERRUPT. 



IF TIME1 EQ 00 THEN 



JSR PC.DROPU 

LET R3 :- OENDERF 

JSR PC.CLRERR 
ELSE 



{DROP THE unit. 



TRAP 
.UORD 
.WORD 
.WORD 



CIERDF 
4 

NOINTM 

staerm 



MOV 
{CLEAR ALL ERROR FLAGS 



OENDERF, R3 
50117$ 



JSR 
JSR 



PC.MOVMSG 
PC ( RECUD 



BR 

50116$: 
{MOVE CURRENT MSG. PACKET TO COMMON AREA, 
l UPDATE THE RECORD COUNT, 



F7 
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3392 


011626 


004737 


012160 


3393 


011632 








011632 


105737 


003467 




011636 


001006 




3394 


011640 


004737 


015436 


3395 


011644 








011644 


012703 


0034 76 


3396 


011650 


004737 


011656 


3397 


011654 
011654 






3398 


011654 

011654 






3399 


011654 


000207 





JSR PC.CHKERR 

IFB WRTYFG EQ 00 THEN 



1$: 



JSR 
LET 


PC, LOG 

R3 ;- GENDERF 


JSR 
ENOIF 


PC.CLRERR 


ENOIF 




RTS 


PC 



» CHECK FOR STATUS ERRORS. 

» 

TSTB WRTYFG 
BNE 501201 

jLOG BYTES AND ERRORS, 

MOV AENDERF.R3 
{CLEAR ALL ERROR FLAGS 

50120$: 

50117$: 
{RETURN IF DONE. 



SEQ 0083 



G7 
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3401 
340? 
3403 
3404 
3405 
3406 
3407 
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3408 
3409 
3410 

3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 

3422 

3423 

3424 

3425 



011656 
011656 
011662 
011662 
011662 
0.11662 
011664 
011664 
011666 
011670 



3426 
3427 
3428 
3429 



011672 
0116/2 
011700 
011700 
011700 
011700 
011702 
011702 
011706 
011706 
011714 
011716 
011722 
011724 



012702 003464 



005022 



020203 
001375 
000207 



012737 177777 003444 

104422 

005337 003444 

032775 000200 002466 

001003 

005737 003444 

001366 



011724 000207 



J 



SUBROUTINE TO CLEAR FLAGS. 

INPUTS: R3 - LWA TO BE CLEARED * 2 

OUTPUTS? 

REGISTERS: R2 

CALLS: 



CLRERR;: LET R2 :« 4BGNFLG 
REPEAT 

LET CR2)* :- GO 
UNTIL R2 EQ R3 

RTS PC 



I 
i 
i 

WSSR: 



MOV 


0BGNFLG,R2 


50121$: 




CLR 


<R2)* 


CMP 
BNE 


R2.R3 
50121$ 



SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET TIME1 : 
REPEAT 

BREAK 

LET TIME1 



0-1 



SEQ 0084 



TIME1 



#1 



jINIT TIMEOUT COUNTER. 

MOV 0-1.TIME1 
jRE D EAT UNTIL DEV READY OR TIMEOUT: 

50122$: 
i BREAK TO THE SUPERVISOR. 

TRAP C*BRK 
{UPDATE TIMEOUT COUNTER. 

DEC TIME1 
UNTIL OTS.SSR SETIN STSSRCR5) OR TIME1 EQ 00 

BIT *T5.SSR,STSSR(R5) 
BNE 50123$ 
TST TIME1 
BNE 50122$ 
50123$: 
{REPEAT UNTIL OEV READY OR TIMEOUT. 
RTS PC {RETURN. 



H7 
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3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
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3440 

3441 

3442 
3443 
3444 

3445 
3446 
3447 

3446 
3449 



011726 
011726 
011734 

011734 
011740 
011744 
011744 
011750 
011754 
011754 
011760 
011760 
011762 
011762 
011762 
011766 
011770 
011770 
011774 
011774 
012000 
012000 
012002 
012002 
012002 
012010 



013702 
042702 

010237 
006237 

016503 

005002 



003462 
177761 

003456 
003456 

002506 



020227 000016 
001405 

012362 002340 

062702 000002 

000770 



013765 002346 
000207 



SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 

TO UPDATE THE CURRENT TERMINATION CLASS CODE, 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: 



017537 002466 003462 



MOVMSG:: LET TSSREG 



STSSRCR5) 



{FREEZE THE STATUS REG CONTENTS 

MOV 3TSSRCH5), TSSREG 
LRT R2 :- TSSREG CLR.BY OTSC.TCC {EXTRACT THE TERMINATION CLASS CODE. 

MOV TSSREG, R2 
BIC 0TSC.TCC.R2 

j AND SAVE IT 

MOV R2,CTCC 

ASR CTCC 

j ADR OF THIS DEVICE' S MSG. 

MOV MSGPKACR5),R3 

jCLR COUNTER. 

CLR R2 

j WHILE THERE ARE MORE LOCATIONS: 

50124*: 

CMP R2,*MSGCNT 
BEQ 50125* 

j MOVE MSG TO COMMON AREA. 

MOV CR3)*,MSGPKT(R2) 

j UPDATE COUNTER. 

ADD *2,R2 



LET CTCC :■ R2 SHIFT -1 

LET R3 :« MSGPKA(RS) 
LET R2 :- *0 

WHILE R2 NE 4MSGCNT DO 



LET MSGPKTCR2) :• CR3)* 
LET R2 j- R2 • 02 
ENODO 



SEQ 0085 



003506 



BR 50124$ 

50125*: 
LET E0TFLGCR5) J" MSGPKTW1S.XS0 ;MQVE XSTATO TO EOT FLAG. 

MOV MSGPK T *MS . XSO % EQTFLGC R5 ) 
RTS PC 



17 
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3451 
3452 
3453 
3454 
3455 
3456 
3457 
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SEQ 0086 



3458 
3459 

3460 
3461 

3462 
3463 

3464 

3465 

3466 

3467 
3468 
3469 

3470 

3471 

3472 
3473 
34 74 
34 75 
3476 



012012 
012012 
012016 
012020 
012020 
012024 
012024 
012032 
012034 
012042 
012044 
012044 
012050 
012050 
012056 
01206C 
012060 
012064 
012064 
012066 
012066 
012066 
012074 
012076 
012076 
012104 
012106 
012106 
012114 
012116 
012116 
012122 
012122 
012122 
012122 
012124 
012124 
012124 
012132 
012134 
012134 
012142 
012144 
012144 
012150 
012150 
012150 
012150 
012150 
012150 
012150 



105737 
001057 

005365 

032737 
001046 
032737 
001442 

105237 

023727 
001003 

005065 

000431 



003471 

003330 
000001 
100000 

003471 
003426 

003330 



032737 004000 
001425 

032737 000400 
001007 

032737 000400 
001002 

005265 003330 



000412 



032737 000400 
001406 

032765 000002 
001002 

005365 003330 



003456 
002352 

102010 



j SUBROUTINE TO ADJUST THE RECORD COUNT, 

j INPUTS: 

{ OUTPUTS: 

i REGISTERS? 

5 CALLS j 

RECUD:: IFB RECLOG EQ 00 THEN i IF RECORD HAS NOT BEEN LOGGED: 

TSTB RECLOG 

BNE 50126$ 
LET RECCNTCR5) j- RECCNTCR5) - #1 

DEC RECCNTCR5) 
IF OBITO NOTSETIN CTCC AND 0X2.0PM SETIN MSGPKT+MS.XS2 THEN j IF TAPE MOVED THEN 

BIT 06IT0.CTCC 

BNE 50127$ 

BIT OX2.0PM.MSGPKT*MS.XS2 

BEQ 50127$ 
01 jSET RECORD LOGGED, 

INCB RECLOG 

j IF THIS IS A REWIND CMD: 

CMP CMOWRD, ORWD 

BNE 50130$ 
00 i CLEAR RECORD COUNT, 

CLR RECCNTCR5) 



003426 
003426 
003432 



0034 32 
003506 



LET RECLOG :B» RECLOG ♦ 
IF CMDWRD EQ OttWD THEN 



LET RECCNTCR5) 
ELSE 



IF OBRF.C SETIN CMDWRD THEN 



BR 50131$ 

50130$: 
5 IF BRF USED, UPDATE RECORD COUNT. 
BIT OBRF.C, CMOWRD 

BEQ 50132$ 

IF OMOD.CO NOTSETIN CMOWRD THEN ;IF A FORWARD CMD: 

BIT OHOO. CO, CMOWRD 

BNE 50133$ 

IF OMOD.CO NOTSETIN PCMOWD THEN ; IF PREV CMO WAS A FWD ALSO; 

BIT OftOO.CO.PCMDWO 

BNE 50134$ 

LET RECCNTCR5) :- RECCNTCR5) » 01 {INCREMENT RECORD COUNT, 

INC RECCNTCR5) 

ENDIF 

50134$; 

ELSE {IF REVERSE CMO: 

BR 50135$ 

50133$: 
IF OMOD.CO SETIN PCMOWD THEN {IF PREVIOUS CMO WAS A REV ALSO: 

BIT OHOO.CO.PCMOWO 

BEQ 50136$ 

IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN {WHEN NOT AT BOT THEN 

BIT 0X0.B0T,E0TFLG(R5) 

BNE 50137$ 

LET RECCNTCR5) ;* RECCNT(R5) - 01 {DECREMENT RECORD COUNT, 

DEC RECCNTCR5) 

ENDIF 

50137$ 
ENDIF 

5013b$ 
ENDIF 

50135$ 
ENDIF 
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012150 

3477 012150 
012150 

3478 012150 
012150 

3479 012150 
012150 

3480 012156 
012156 

3481 012156 
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SEQ 0087 



016577 003330 171236 



000207 



ENDIF 

ENDIF 

LET 80ATAWT 
ENDIF 
RTS PC 



RECCNTCR5) 



j RE TURN 



50132$ 
50131$ 
50127$ 
MOV 
50126$ j 



RECCNT(R5),30ATAWT 
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3483 

3484 
3485 
3486 

5487 
3488 
3489 
3490 
3491 
3492 
3493 
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SEQ 0088 



3494 
3495 
3496 
3497 

5498 



3499 
3500 

3501 



3502 

3503 
3504 

3505 

3506 
3507 

3508 



012160 
012160 
012166 
012170 
012170 
012176 
012200 
012200 
012204 
012206 
012206 
012212 
012216 
012216 
012220 
012222 
012224 
012226 
012226 
012230 
012234 
012240 
012242 
012244 
012250 
012250 
012250 
012250 
012256 
012260 
012260 
012266 
0122 70 
012276 
012300 
012300 
012300 
012304 
012306 
012312 
012316 
012316 
012316 
012316 
012316 
012316 
012316 



026527 
001556 

032737 
001447 

105737 
001421 

013702 
042702 

006202 

006202 
006202 
006202 

010246 
012746 
012746 
010600 
104417 
062706 



023727 
001017 

023 727 
001404 
023727 
001007 



105737 
001004 
004737 
000137 



THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 

SUBROUTINE IS CALLED TO CHECK THE TK25 STATUS. 

IF' SPECIAL COND IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 

IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 

THEN AN ERROR RFC IS REPORTED, 

INPUTS; 

OUTPUTS; 

REGISTERS! R2 , R4 . 

CALLS; TCC0TCC7. 



002536 
000010 
002216 



002350 
177417 



177774 
002350 



CHKERR::IF DEVTBLCR5) NE ONINUSE THEN 

IF 4X1.EWN SETIN MSGPKT*MS.XS1 THEN 
IFB EWPRNT NE 00 THEN 



012526 
000002 



000006 



003456 000004 



003426 
003426 

002210 

012632 
012524 



104005 
100011 



CMP DEVTBLC R5 ) , ONINUSE 
BEQ 50140$ 
2 IF EARLY WARNING IS SET AND 

BIT 0X1.EWN,MSGPKT+MS.XS1 
BEQ 50141$ 
j IF ENO OF TRACK STATUS PRINTS ALLOWED 





TSTB EWPRNT 




BEQ 50142$ 


LET R2 :• MSGPKT*MS.XS1 CLR.BY 0177417 






MOV MSGPKT»MS.XS1,R2 




BIC 0177417.R2 


LET R2 ;• Ri> SHIFT -4 






ASR R2 




ASR R2 




ASR R2 




ASR R2 


PRINTF 0EWMSG.R2 jPRINT END OF TRACK MESSAGE-; 




MOV R2.-CSP) 




MOV OEWMSG.-(SP) 




MOV 02,-CSP) 




MOV SP.RO 




TRAP CtPNTF 




ADO 06 , SP 


ENDIF 






50142$: 


IF CTCC EQ 04 THEN ; IF TCC4 AND WE 


DID A WRITE 




CMP CTCC, 04 




BNE 50143$ 


IF CMDWRD EQ OWRT OR CMDWRD EQ OWTM THEN 






CMP CMOWRD.OWRT 




BEQ 50144$ 




CMP CMOWRD.OWTM 




BNE 50145$ 




50144$; 


IFB IREC EQ 00 THEN 






TSTB IREC 




BNE 50146$ 


JSR PC.EWRTRY tDO EW RETR> 




JMP It j ALAS, A "GOTO" 


STATEMENT, EH? 


LNDIF 






50146$: 


ENDIF 






50145$; 


LNDIF 






50143$; 


ENDIF 
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SEQ 0089 



3509 
3510 
3511 

3512 

3513 

3514 
3515 



3516 

3517 
3518 

3519 
3520 
3521 

3522 

3523 

3524 

3525 
3526 

3527 

3528 
3529 



012316 

012316 

012316 

012324 

012326 

012326 

012334 

012336 

012336 

012342 

012344 

012350 

012350 

012350 

012350 

012350 

012350 

012356 

012360 

012366 

012370 

0123/0 

012370 

012376 

012400 

012400 

012404 

012404 

012406 

012406 

012406 

012412 

012412 

012412 

012412 

012414 

012414 

012414 

012420 

012420 

012420 

012420 

012422 

012426 

012426 

012430 

012430 

012430 

012436 

012440 

012440 

012444 

012446 

012446 

012452 

012454 

012460 



032737 
001441 

023727 
001405 

105737 
001002 
005265 



032737 
001004 
032737 
001412 



032737 
001003 

012702 

000402 



006302 
004772 

000430 



032737 
001424 

00573? 
001421 

105737 
001403 
105737 
001413 



100000 

003456 

003475 
003270 



004000 
040000 

100000 
000005 



012702 000004 



000402 



013702 003456 



012612 

004000 

002344 

003521 
003522 



003462 
000002 



003462 
003462 

002352 



003426 



IF tfTS.SC SETIN TSSREG THEN 
IF CTCC NE #2 THEN 

IFB ERRREC EQ 40 THEN 



IK" 

F.NOIF 



SCCNTCR5) 



501411; 

»IF SPECIAL COND STATUS IS SET THEN; 

BIT OTS.SC, TSSREG 
BEQ 50147$ 

I IF TCC IS NOT 2 THEN: 

CMP CTCC. 02 
BEQ 50150$ 

; IF NOT IN ERROR RECOVERY: 

TSTB ERRREC 
BNE 50151$ 

j INC SC COUNTER. 

50151$: 



ENDIF 

50150$: 
IF OTS.NXM SETIN TSSREG OR OTS.UPE SETIN TSSREG THEN {WHEN NON-EXISTANT MEMO 

BIT OTS.NXM.TSSREG 

BNE 

BIT 

BEQ 

50152$ 
IF 0X2. OPM NOTSETIN MSGPKT *MS,XS2 THEN 

BIT 

BNE 
j SET TCC5 INDEX 

MOV 



50152$ 
OTS.UPE, TSSREG 
50153$ 

jANO TAPE NOT MOVED 

0X2.0PM,MSoPKT*MS.XS2 

50154$ 



LET R2 


:» 05 


ELSE 




LET R2 


:* 04 


ENOIF 




ELSE 




LET R2 :' 


■ CTCC 


ENDIF 




LET R2 :* R2 SHIFT 1 


JSR PC, a' 

ELSE 


rCCRA(R2) 



05, R2 

BR 50155$ 
50154$: 
j TAPE MOVED, SET TCC4 INDEX 

MOV 04, R2 

50155$: 

BR 50156$ 
50153$: 
jSET DETECTED TCC INDEX 

MOV CTCC.R2 

50156$: 
j CURRENT TCC X 2. 

ASL R2 
jGO TO THE TCC HANDLING SUBROUTINE. 



IF OBRF.C SETIN CMDWRD THEN 



BR 50157$ 
50147$: 
}IF BRF IS USED IN THIS CMO THEN: 

BIT OBRF.C .CMDWRD 
BEQ 50160$ 

IF MSGPKT ♦MS. RFC NE 00 THEN i IF THERE IS AN Rrc THEN; 

TST MSGPKT fMS. RFC 
BEQ 50161$ 
IFB RANDOM EQ 00 ORB VFYFLU NE 00 THEN 

TSTB RANDOM 
OEQ 50162$ 

rsTB vnFu; 
BEQ 50163$ 



M7 



GLOBAL AREAS MACRO M1200 
GLOBAL SUBROUTINES SECTION 

012462 



21-MAR-84 16:45 PAGE 76-2 



SEQ 0090 



3530 










3531 


012462 










012462 


105737 


003526 






012466 


001010 






3532 


012470 










012470 


005265 


003310 




3533 


012474 
012474 

012476 
012500 
012502 


104436 
000015 
004336 
005626 






3534 


012504 


004737 


014050 




3535 


012510 
012510 








3536 


012510 
012510 








3537 


012510 
012510 








3538 


012510 

012510 








3539 


012510 
012510 








3540 


012510 










012510 


105737 


0034 73 






012514 


001403 






3541 


012516 










012516 


013737 


003430 


002314 


3542 


012524 
012524 








354 3 


012524 
012524 








3541 


012524 


000207 






3545 










3546 


012526 


045 


116 


045 




012531 


101 


105 


101 




012534 


122 


114 


13.1 




012537 


040 


127 


101 




012542 


122 


116 


11.1 




012545 


116 


107 


040 




012550 


104 


125 


122 




012553 


111 


116 


107 




012556 


040 


127 


122 




012561 


111 


124 


105 




012564 


040 


101 


124 




012567 


040 


105 


116 




012572 


104 


040 


117 




012575 


106 


040 


124 




012600 


122 


101 


103 




012603 


113 


040 


045 




012606 


104 


062 


000 



IFB IRE EQ 4/0 THEN 



50162$: 
{IF NOT IN RANDOM OR IF CMD IS WTV 
j IF RFC ERROR REPORTS ARE ALLOWED s 
TSTB IRE 
BNE 50164$ 
LET HRDCNTCR5) :- HRDCNTCR5) ♦ #1 i UPDATE HARD ERROR COUNT 

INC HRDCNTCR5) 
ERRHRD 13.RFCERM.STAERM j REPORT RFC ERROR 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
13 

RFCERM 
STAERM 



1$: 





JSR 
ENDIF 




PC.RAMDUM 




ENDIF 






ENDIF 






ENDIF 






ENDIF 








IFB RWEPR NE 


00 


THEN 


LET 


CMDPKT 


• 3t 

• 


CMDSAV 


ENDIF 








ENDIF 








RTS 


PC 







j GO DO RAM DUMP 

50164$ 

50163$ 

50161$ 

50160$ 

50157$ 

j IF A READ/WRITE ERROR HAS OCCURRED THEN: 

TSTB RWERR 
BEQ 50165$ 
jRESTORE CMU PACKET AFTER ERROR RECOV. 
MOV CMDSAV, CMDPKT 

50165$: 

50140$: 
(RETURN. 



EWMSG: .ASCIZ /KNrfAEARLY WARNING DURING WRITE AT END OF TRACK *D2/ 



354 7 



.EVEN 



N7 



GLOBAL AREAS MACRO M1200 
GLOBAL SUBROUTINES SECTION 



21-MAR-84 16i45 PAGE 77 



3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 



012612 
012614 
012616 
012620 
012622 
012624 
012626 
012630 



012740 
012762 
013000 
013146 
013170 
013670 
0137/2 
014026 



SEQ 0091 



; ADDRKSSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS COOES 

TCCRAj TCCO 
TCC1 
TCC2 
TCC3 
TCC4 
TCC5 
TCC6 
TCC7 



B8 
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SEQ 0092 



3560 








3561 








3562 








3563 








3564 








3565 








3566 








3567 


012632 




EWRTRYj 


3568 


012632 








012632 


013746 


002314 


3569 


012636 








012636 


052737 


001000 002314 


3570 


012644 








012644 


112737 


000001 003475 


3571 


012652 


004737 


010654 


3572 


012656 








012656 


105037 


0034 75 


3573 


012662 








012662 


012637 


002314 


3574 


012666 








012666 


012602 




3575 


012670 








012670 


012746 


000012 


3576 


012674 
012674 






3577 


012674 








012674 


012727 


000372 




012700 


oooooo 






012702 


013727 


002116 




012706 


OOOOOO 






012710 


005367 


177772 




012714 


001375 






012716 


005367 


177756 




012722 


001367 




3578 


012724 








012724 


005316 




3579 


012726 








012726 


005716 






012730 


001361 




3580 


012/32 








012732 


062706 


000002 


3581 


012736 


000207 





SUBROUTINE TO HANDLE EARLY WARNING WRITE ERRORS. 

THIS ROUTINE WILL SIMPLY TAKE CARE Of EARLY WARNING WRITE ERRORS 
BY REISSUING THE COMMANO WHICH FAILED WITH THE RETRY MODIFIER SET. 
NOTE THAT NO ERROR FLAGS, COUNTS, ETC ARE CHANGED. 
CEW ERRORS WILL NOT SHOW \JP IN ERROR TALLIES), 

LET .(SP) :• CMOPKT iSAVE THE COMMAND PACKET 

MOV CMDPKT.-CSP) 
LET CMOPKT j- CMOPKT SET, BY 0MOD.C1 iSET THE RETRY MOOIFIER IN COMMANO 

BIS #M00. CI .CMOPKT 
I SHOW ERROR RECOVERY IN PROCESS 

MOVB 01, ERRREC 
I DO THE COMMAND 
iNO MORE ERROR RECOVERY 

CLRB ERRREC 
iRESTORE THE ORIGINAL COMMAND STATUS 

MOV (SP).. CMOPKT 
jMOOIFY THE RETURN ADDRESS 

MOV CSP).,R2 
jOVERALL LOOP CONTROL 

MOV •10. f -(SP) 
I LOOP 

501661s 
IWAIT FOR THE UNIT TO STOP 



LET ERRREC jB- *1 

JSR PCEXCUTE 
LET ERRREC :B- *0 

LET CMOPKT }- lSP)» 

LET R2 5 - (SP)* 

let (SP) i* no, 

REPEAT 
DELAY 250, 



LET (SP) :• (SP) 
UNTIL (SP) EQ 00 

LFT SP J- SP ♦ 02 

RTS PC 



«1 





MOV 


♦250. ,(PC>* 




.WORD 







MOV 


L$DL>,(PC)» 




.WORD 







DEC 


-6CPC) 




BNE 


. 4 




DEC 


-22(PC) 




BNE 


.-20 


lONE LESS ITERATION 






DEC 


(SP) 




lUNTll, • 






TST 


(SP) 




BNE 


501661 




{CORRECT THE STACK 






ADD 


WtSP 




tRETURN TQ CALLER 
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3583 






3584 






3585 






3586 






3587 






3580 






3589 






3590 


012740 






012740 


005265 


3591 


012744 






012744 


104456 




012746 


0OO005 




012750 


004312 




012752 


005626 


359? 


012 754 


004 737 


3593 


012760 


000207 


3594 






3595 






3596 






3597 






3598 






3599 






3600 






3601 






3602 






3603 






3604 






3605 






3606 






3607 


012762 






012762 


104455 




012764 


000006 




012766 


004417 




012770 


005626 


3608 


012772 


004737 


3609 


012776 


000207 
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003310 



TCCOi 



014050 



014050 



SEQ 0093 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 

CONOITION ERROR. 

INPUT St 

OUTPUTS: 

REGISTERS i 

CALLS? 



LET HRDCNTCR5) :■ HRDCNTCR5) 
ERRHRD 5,SCERM,STAERM 



JSR 
RT3 PC 



PC.RAMOUM 



♦ 01 i UPDATE HARD ERROR COUNT. 

INC HRDCNTCR5) 
jREPORT SPECIAL CONOITION ERROR, 

TRAP CIERHRD 
.WORD 5 
.WORD SCERM 
.WORD STAERM 
I GO DO RAM DUMP 
iRETURN. 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONOITION, 

THIS TCC INOICATES THAT THE DRIVE HAS UNOERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR CQMING ONLINE. 

INPUTS: 

OUTPUTS,* 

REGISTERS! R2.R4 

CALLS: DROPU 



TCCiu ERRDF 6.ATTNM.STAERM 



JSR 
RTS 



PCRAMQUM 
PC 



jREPORT ATTENTION-UNIT OFF LINE. 

TRAP CIERDF 
.WORD 6 
.WORD ATTNM 
*WQRD STAERM 

I GO DO RAM DUMP 

•RETURN. 



Db 



GLOBAl AREAS 


MACRO M1200 21 


-MAR -84 


GLOBAL SUBROUTINES SECTION 




3611 










3612 










3613 










3614 










3615 










3616 










3617 










3618 










3619 


013000 










013000 


032737 


000002 


002346 




013006 


00140* 








013010 


105737 


003520 






013014 


001401 






3620 










3621 


013016 


000452 






3622 


013020 
013020 








3623 


013020 










013020 


023727 


002114 


00OO03 




013026 


ooiou 






3624 


013030 










013030 


023727 


003432 


1000U 




013036 


001005 








013040 


023727 


003426 


104410 




013046 


001001 






3625 


013050 


000435 






3626 


013052 
013052 








3627 


013052 
013052 








3628 


013052 










013052 


032737 


170002 


002346 




013060 


001431 






3629 










3630 


013062 










013062 


105737 


003521 






013066 


001403 








013070 


105737 


003522 






013074 


001423 








013076 








3631 










3632 


013076 










013076 


105737 


003526 






013102 


001020 






3633 


013104 










013104 


105737 


0034 75 






0131J0 


001403 






3634 


013112 










013112 


105237 


003474 




3635 


013116 
013116 
013120 


000402 






3636 


013120 










013120 


005265 


003270 




3637 


013124 
013124 








3638 


013124 
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SEQ 0094 



SUBROUTINE TO HANDLE TERMINATION CLASS COOE 2, TAPE STATUS mLERT. 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK , RLS, LET, RLL , BOT, EOT. 

INPUTS; 

OUTPUTS: 

REGISTERS: 

CALLSs 

TCC2:: IF 0X0. BOT SETi'J MSGPKT*MS. XSO AMOB EXPBOT NE #0 THEN 

BIT OX0.B0T,MSGPKT*MS.XS0 

BEQ 50167$ 

TSTB EXPBOT 

BEQ 50167$ 

l IF AT BOT ANO BOT IS EXPECTED: 
BR TC2RTN jRETURN-TCC2 CAUSED BY EXPECTED BOT, 

ENOIF 



IF LtTEST EQ 03 THEN 
IF PCMUWO EQ OWTM AND CMOWRD EQ OSRR THEN 



8R 

ENOIF 



TC2RTN 



50167$: 

CMP 
BNE 

CMP 
BNE 
CMP 
BNE 



50171$ 



L$TEST.03 
50170$ 

PCMOW0,0WTM 
50171$ 
CMOWRO.OSRR 
50171$ 



END IF 

50170$: 
IF *XO,RLS!XO.RLL!XO.TMK!XO.LET!XO.BOT SETIN MSGPKT*MS ,XSO THEN 

BIT ♦XO,RLS»XO.RLL!XO.TMK!XO,IET 

BEQ 50172$ 

I IF TCC2 CAUSED BY ANYTHING BUT EOT: 
1FB RANDOM EQ 00 ORB VFYFLG NE 00 THEN 

TSTB RANOOM 

BEQ 50173$ 

TSTB VFYFLG 

BEQ 50174$ 

50173$: 
I IF NOT IN RANOOM OR IF CMO IS UTV; 
I IF RFC ERROR REPORTS ARE ALLOWED: 
TSTB IRE 

BNE 50175$ 

j IF WE ARE IN ERROR RECOVERY THEN: 



IFB IRE EQ 00 THEN 

IFB ERRREC NE 00 THEN 



TSTB 



LET UNREC }B» UNREC ♦ 01 
ELSE 



ERRREC 
BEQ 50176$ 
j SET UNRECOVERABLE FLAG FOR LOG. 
INCB UNREC 
lELSE - IF NOT IN ERROR RECOVERY; 
BR 50177$ 
50176$: 
LET SCCNUR5) :- SCCNUR5) ♦ 01 | INCREMENT THE SPEC CONO COUNTER* 

INC SCCNTCR5) 
ENDIF 

50177$; 
LET HRDCNTCP.5) 1* HRDCNT(RS) * 01 jUPDATb HARD ERROR COUNT, 
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013124 


005265 


003310 


3639 


013130 








013150 


104456 






013132 


000007 






013134 


004520 






013136 


005626 




3640 


013140 


004737 


014050 


3641 


013144 
015144 






3642 


013144 

015144 






3643 


013144 
013144 






3644 


013144 


000207 




3645 








3646 








364 7 








3o48 








3649 








3650 








3651 








3652 








3653 








3654 








3655 








3656 








3657 








3658 


013146 








013146 


104455 






013150 


000010 






013152 


0O4435 






013154 


005626 




3659 


013156 


004737 


014050 


3660 


013162 


004737 


017402 


3661 


013166 


000207 





MAR -84 16s 45 PAGE 80-1 



E8 



ERRHRD 7 ,TSAM, STAERM 



SEQ 0095 



JSR 
ENDIF 



PCRAMDUM 



TC2RTN; 



ENDIF 
ENDIF 
Ri'S PC 



INC HR0CNTCR5) 
jREPORT TAPE STATUS ALERT. 

TRAP CJERHRD 
.WORD 7 
.WORD TSAM 
.WORD STAERM 
j GO DO RAM DUMP 



50175$ 
50174* 
50172$ 



jRETURN. 



THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 

RMR, OFL, VCK, BOT , ILC, WLE, ILA, AND NBA, 

INPUTS: 

OUTPUTSj 

REGISTERS: R2.R4 

CALLS: DROPU 



TCC3{j ERRDF 8, FLNRM, STAERM 



JSR PCRAMDUM 
JSR PC » DROPU 
RTS PC 



iREPORT FUNCTION REJECT, 



iGO DO RAM DUMP 
jOROP THE UNIT, 
, RETURN* 



TRAP 


C$ERDF 


.WORD 


8 


.WORD 


FUNRM 


♦ WORD 


STAERM 
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3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 



21-MAR-64 16:45 PAGE 81 



F8 



SEQ 0096 



3682 
3683 

3684 



3685 



3686 



3687 
3688 

3689 



3690 



3692 



3693 
3694 

3695 



013170 
013170 
013176 
013200 
013204 
013204 
013204 
013204 
013212 
013214 
013220 
013222 
013222 
013226 
013230 
013234 
013236 
013236 
013240 
013242 
013244 
013246 
013252 
013252 
013252 
C13252 
013256 
013260 
013260 
013264 
015264 
015270 
013270 
013274 

013276 
013276 
013304 
013304 



026527 002536 177774 

001002 

000137 013666 



023727 003434 000002 

001142 

105737 002211 

001537 

105737 003475 

001011 

105737 002207 

001406 

10445 7 
000011 
004632 
005626 
004737 014050 



105737 002210 
001115 

105237 003475 

105237 003470 

105737 005467 
001105 

013737 003426 014730 

013737 002314 014726 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR, 

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION WAS INITIATED, RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND ISSUE \HE APPROPRIATE RETRY COMMANO. 

2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE, 

IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAD SPOTS HAVE BEEN LOGGED. AFTER LOGGING 256 BAD 

SPOTS, A BAD TAPE OVERFLOW MSG IS PRINTED ANO THE 

UNIT DROPPED. 

THE SECOND ALGORITHM ISSUES THE TK25 WRITE RETRY COMMAND 

UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY, 

INPUTS: 

OUTPUTS: 

REGISTERS* R2 R4 

CALLS: * RTLe/exCUTE, GOWAIT r DROPU. iwr* 



TCC4:: IF DEVTBLCR5) EQ ONINUSE THEN 

3$ 
IF CMDLG EQ 02 ANDB BADTSW NE 00 THEN 



JMP 
ENOIF 



IFB ERRREC EQ 00 ANDB ERCVER NE 00 THEN 



ERRSOFT 9,RERM.STAERM ; 



CMP 
BNE 



50200$ 

CMP 
BNE 

TSTB 
BEQ 

TSTB 
BNE 
TSTB 
BEQ 



DEVTBLCR5), ONINUSE 
50200$ 



CMOLG , 02 
50201$ 
BADTSW 
50201$ 

ERRREC 
50202$ 
ERCVER 
50202$ 



JSR PC.RAMOUM 
ENDIF 

IFB IREC EQ 00 THEN 



LET ERRREC :B- ERRREC ♦ 01 
LET WRTYER :B- WRTYER ♦ 01 
IFB WRTYFCi EQ 00 THEN 



j GO 00 RAM DUMP 



J 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERSOFT 
9 

RERM 
STAERM 



50202$ 



LET WTYWRD 
LET WTYCMD 



CMOWRD 
CMDPKT 



TSTB IREC 

BNE 50203$ 

jRETRY FLAG FOR EXCUTE SUBR: DON'T UPDATE REC CNT 

INCB ERRREC 

iREWRITE ERROR FLAG FOR WRTY SUBR 

INCB WRTYER 

jFIRST RETRY ON THIS RECORD: SUBSEQUENT 

TSTB WRTYFG 

BNE 50204$ 

jRETRIES WITH 1CC4 ERRORS BY-PASS THIS SECTION 
i SAVE WRITE COMMANO PACKET 

MOV CMOWRD ,WT>WRD 



I 



MOV 



CMDPKT, WTYCMD 



G8 
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3696 


01.3312 










013312 


013737 


002322 


014732 


3697 


013320 










013320 


105237 


003473 




3698 


013324 










013324 


105237 


003467 




3699 


013330 
013330 








3700 


013330 










013330 


005265 


003250 




3701 


013334 










013334 


005037 


003464 




3702 


013340 










013340 


105037 


00s3466 




3703 


013344 


004737 


014350 




3704 


013350 










013350 


026527 


002536 


177774 




013356 


001001 






3705 


013360 


000542 






3706 


013362 
013362 








3707 


013362 










013362 


105737 


003470 






013366 


001404 








013370 


027727 


170122 


000050 




013376 


103754 








013400 








3708 










3709 


013400 










013400 


027727 


170112 


000050 




013406 


103406 






3710 


013410 


004737 


015146 




3711 


013414 










013414 


005365 


003330 




3712 


013420 


004737 


014050 




3713 


013424 
013424 








3714 


013424 










013424 


027727 


170066 


001000 




013432 


103417 






3715 


013434 










013434 


012746 


015021 






013440 


012746 


000001 






013444 


010600 








013446 


104414 








013450 


062706 


000004 




3716 


0134 54 


0O4737 


017402 




3717 


013460 










013460 


005065 


003330 




3718 


013464 










013464 


012775 


002334 


002456 


3719 


013472 
013472 








3720 


0134 72 










013472 


105037 


003467 




3721 


013476 










013476 


105237 


003537 





SEQ 0097 



LET WTYBRF : 
LET RWERR :6 



CMOPKTfCP.CNT , 

MOV CMDPKT *CP . CNT , WTYBRF 
RWERR ♦ 01 i LOG SUBR FLAG: COUNT WRT ERRORS 

INCB RWERR 
LET WRTYFG jB- WRTYFG ♦ 01 {RETRY IN PROGRESS FLAG 

INCB WRTYFG 
REPEAT 

50205$: 
LET WRTYCTCR5) :- WRTYCTCR5) * 01 {COUNT GLOBAL WRITE RETRIES 

INC WRTYCTCR5) 
LET RETRYC J- 00 {CLEAR OF RETRIES PER RECORD 

CLR RETRYC 
LET RPTCNT :B- 00 {CLEAR OF REPEATS 

CLRB RPTCNT 
JSR PC.WRTY {CALL WRITE RETRY 

IF DEVTBLCR5) EQ ONINUSE THEN 

CMP DEVTBLCR5). ONINUSE 



BR 3* 

ENOIF 

UNTILB WRTYER EQ 00 OR SBTPT HIS 040. 



BNE 



50206$ 



IF SBTPT HIS 040. THEN 



JSR PC, BORERS 



50206$: 

{REPEAT RETRIES ON SAME RECORD 

TSTB WRTYER 

BEQ 50207$ 

CMP a6TPT t 040, 

BLO 50205$ 

50207$: 
{UNTIL RECOVERED OR 20 BAD SPOTS 
{WHEN 20 BAD SPOTS LOGGED CTWR) 



LET RECCNTCR5) :« RECCNTCR5) - 01 



CMP 
BLO 
{ERASE BAD RECORD 



JSR 
ENOIF 



PC.RAMOUM 
IF 8BTPT HIS 0512, THEN 
PRINTS 0QTMSG2 



{GO DO RAM DUMP 



DEC 



50210$ 

CMP 
BLO 



86TPT.040. 
50210$ 



RECCNTCR5) 



8BTPT.0512. 
50211$ 



JSR PC JROPU 
LET RECCNTCR5) :< 



{BAD TAPE OVERFLOW MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 



00 



{DROP THE UNIT. 

i 



0BTMSG2.-CSP) 
•1,-CSP) 

SP.RO 
CIPNTB 
04, SP 



LET QTSDBCR5) : 
ENDIF 
LET WRTYFG ;B» 00 



ORWCPK {REWIND UNIT 



CLR RECCNTCR5) 

MOV ORWCPK, QTSDBCR5) 



50211$: 
{RETRY COMPLETE FLAG 

CLRB WRTYFG 
LET MISCFG ;B* MISCFG «■ 01 {DO NOT HALT ON THIS CMD FLG 

INCB MISCFG 
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H8 



3722 013502 






013502 


013737 


014730 003432 


3723 013510 






013510 






3724 013510 






013510 


000402 




013512 






3725 013512 






013512 


105237 


003474 


3726 013516 






013516 






3727 013516 






013516 


000463 




013520 






3728 013520 


004737 


014212 


3729 013524 






013524 


023727 


003434 000002 


013532 


003411 




3730 013534 






013534 


012702 


000020 


013540 


006202 




3731 013542 






013542 


023702 


003464 


013546 


002403 




3732 013550 






013550 


052737 


020000 002314 


3733 013556 






013556 






3734 013556 






013556 






3735 013556 






013556 


005737 


003464 


013562 


001011 




013564 


105737 


002207 


013570 


001406 




3736 013572 






013572 


104457 




013574 


000011 




013576 


004632 




013600 


005626 




3737 013602 


004737 


014050 


3738 013606 






013606 






3739 013606 






013606 


005237 


003464 


3740 013612 






013612 


052737 


001000 002314 


3741 013620 






013620 


105737 


002210 


013624 


001016 




3742 013626 






013626 


026527 


002536 177774 


013634 


001001 




3743 013636 


000413 




3744 013640 






013640 






"3745 013640 
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LET PCMDWD 


:- WTYWRD 




ENDIE 








ELSE 








LET UNREC 


:B- 


• UNREC ♦ 


n 


ENOIF 








ELSE 








JSR PC.RTLE 
IF CMDLG GT 


02 


THEN 





SEQ 0098 



iRESTORE ORIGINAL URT CMD AFTER RECOVERY 

WTYWRD, PCMDWD 



MOV 

50204$ 

BR 
50203$ 

INCB 

50212$ 



50212$ 
UNREC 

50213$ 



LET R2 j- ORRECL SHIFT -1 
IF RETRYC GE R2 THEN 



BR 

50201$: 
i CHECK FOR RETRY LIMIT EXCEEDED, 
i IF READ CMD THEN: 

CMP CMOLG, 02 

BLE 50214$ 
IR2-READ RETRY COUNT LIMIT / 2 

MOV 0RRECL.R2 

ASR R° 
j IF RETRY COUNT IS MORE THAN HALF LIMIT: 

CMP RETRYC, R2 

BLT 50215$ 
LET CMDPKT : « CHDPKT SET. BY GOPP.C jSET OPPOSITE BIT FOR RETRY2. 

BIS $0PP,C,CM0PKT 
ENDIF 

50215$: 
ENDIF 

50214$: 
IF RETRYC EQ 00 ANDB ERCVER NE 00 THEN i IF THIS IS THE ORIGINAL ERROR THEN: 

TST RETRYC 
BNE 50216$ 
TSTB ERCVER 
BEQ 50216$ 
jREPORT RECOVERABLE ERROR 

TRAP 
.WORD 
.WORD 
.WORD 
}G0 DO RAM DUMP 
iPROVIDED OPERATOR HAS ENABLED THE REPORT 

50216$: 
jUPDATE RETRY COUNT, 

INC RETRYC 
LET CMDPKT :• CMOPKT SET. BY 0M0D.C1 j SET RETRY BIT IN CMO PACKET. 

BIS OMOD.Ci. CMDPKT 
IFB IREC EQ 00 THEN i IF ERROR RECOVERY ENABLED: 

TSTB IREC 
BNE 50217$ 
IF DEVTBLCR5) EQ *NINUSE THEN 

CMP DEVTBLC R5 ) , 0NINUSE 
BNE 50220$ 
BR 3$ 

ENDIF 

50220$: 
LET ERRREC :9* ERHREC * 01 t SE T ERROR RECOVERY FLAG, 



ERRSOFT 9,RERM,STAERM 



JSR PC.RAMDUM 
ENDIF 

LET RETRYC : » RETRyC * 01 



C$ERSOFT 

9 

RERM 

STAERM 



18 
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SEQ 0099 



3746 



3747 
3743 
3749 



3750 
3751 
3752 

3753 



013640 
013644 
013644 
013646 
013650 
013654 
013660 
013660 
013662 
013662 
013662 
013666 
013666 
013666 
013666 
013666 



105237 003475 

012602 
012602 

004737 010654 
000137 011274 

000402 



105237 003474 



000207 



3*: 



POP R2.R2 



JSR PC.EXCUTE 
JMP GOWAIT 
ELSE 



LET UNREC :B- UNREC * *1 
ENDIF 
END IF 
RTS PC 



INCB 
jPOP 2 RTN ADRS FROM 

MOV 

MOV 
I GO EXECUTE THE 
j GO WAIT FOR INTERRUPT 
jELSE IF ERROR RECOVERY 

BR 

50217$: 
iSET UNRECOVERABLE! ERROR FLAG. 

TNCB UNREC 



ERRREC 
STACK. 

CSP)f ,R2 
(SP)f ,R2 
RETRY COMMAND. 
CHECK STATUS. 
IS NOT ENABLED 
502? 1$ 



I RE TURN 



50221$: 
50213$: 



J 8 
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3755 
3756 
3757 
3758 
3759 
3 760 
3761 
3762 
3763 
3764 
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SEQ 0100 



3765 



3766 

3767 

3768 
3769 

3770 
3771 
3772 
3773 



3774 
3775 
3776 



3777 

3778 

3779 
3780 
3781 



013670 
013674 
013674 
013700 
013702 
013702 
013704 
013706 
013710 
013712 
013716 
013716 
013716 
013716 
013722 
013722 
013726 
013730 
013730 
013734 
013734 
013740 
013740 
013746 
013746 
013750 
013752 
013756 
013762 
013762 
013764 
013 764 
013764 
013770 
013 7 70 
013770 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTER5: R2.R4. 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 



004737 014212 

005737 003464 
001006 

104457 
000012 
004632 
005626 
004737 014050 



005237 003464 

105737 002210 
001016 

105237 003475 

005265 003330 

016577 003330 16/446 

012602 
012602 

004737 010654 
000137 011274 

000402 

105237 003474 

000207 



TCC5 



JSR PC, RTLE 

IE RETRYC EQ *0 THEN 



ERRSOFT 10,RERM,STAERM 



JSR 
ENDIE 



PC.RAMDUM 



LET RETRYC :- RETRYC ♦ #1 
IFB IREC EQ <K> THEN 

LET ERRREC :B» ERRREC ♦ *1 

LET RECCNTCR5) :■ RECCNTCR5) 

LET SOATAWT :- RECCNTCR5) 
POP R2,R2 



JSR PC.EXCUTE 
JMP GOWAIT 
ELSE 



LET UNPEC :B« UNREC ♦ 
ENDIF 
RTS PC 



01 



i CHECK FOR RE. THY LIMIT EXCEEDED 
I IF THIS IS THil ORIGINAL ERROR THEN: 

TST RETRYC 
BNE 50222$ 
j REPORT RECOVERABLE ERROR. 

TRAP 



I GO DO RAM DUMP 



.WORD 
.WORD 
.WORD 



CIERSOFT 
10 

RERM 
STAERM 



50222$: 
{UPDATE RETRY COUNTER. 

INC RETRYC 
j IF ERROR RECOVERY IS ENABLED: 

TSTB IREC 

BNE 50223$ 
{SET ERROR RECOVERY FLAG. 

INC8 ERRREC 
*1 jUPDATE REC COUNT 

INC RECCNTCR5) 
jANO INSERT IT INTO WRT BFR 

MOV RECCNTC R5 ) . QDATAWT 
j POP 2 RTN ADRS FROM STACK. 

MOV (SP)*,R2 

MOV C3P5-.R2 

;G0 RE-IS5UE THE COMMAND. 
;G0 WAIT FOR INTERRUPT ♦ CHECK STATUS, 
j ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50224$ 

50223$: 
j SET UNRECOVERABLE ERROR FLAG. 

INCB UNREC 



jRETURN. 



50224$: 



I<8 
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3784 
3785 

3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
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3795 
3796 



3797 
3798 
3799 



013772 
013772 
014000 
014004 
014004 
014006 
014010 
014012 
014014 
014020 
014024 



012775 
004737 

104455 
000013 
0O4654 
005626 
004737 
004737 
000207 



002334 
011672 



002456 



{ 
: 

i 
TCC6 



014050 
017402 



SEQ 0101 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 

TAPE POSITION MAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 

IS TO REWIND AND START OVER AT GOT UNLESS THE TAPE HAS LABELS OR 

SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY TH^E 

COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

DROPPED FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE, USSfl, EXCUTE, GOWAIT, DROPU 



LET 8TSDBCR5) 



WWCPK 



JSR PC.WSSR 

ERRUF 11»URERM,STAERM 



JSR PC.RAMOUM 
JSR PC, DROPU 
RTS PC 



j ISSUE A REWIND COMMAND. 

MOV 0RWCPK.8TSDBCR5) 

;WAIT FOR SUBSYSTEM READY. 

I REPORT UNRECOVERABLE ERROR, 

TRAP C$ERDF 
.WORD 11 
.WORD URERM 
.WORD STAERM 

j GO DO RAM DUMP 

;DROP THE UNIT. 

j RE TURN 



L8 
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3801 
380? 
3803 
380k 
380:; 
330- . 
380.' 
3808 
3809 
3810 
3811 
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SEQ 0102 



3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 



3821 



382;. 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
385? 
3833 



3834 

3835 
3836 



014026 
014026 
014030 
014032 
014034 
014036 
014042 
014046 



014050 
014050 
C.\4050 
014054 
014056 
014056 
014062 
014066 
014070 
014072 
014076 
014104 
014112 
014116 
014124 
014130 
014136 
014144 
014150 
014156 
014164 
014170 
014170 
014174 
014200 
014202 
014204 
O14210 
014210 
014210 



104455 
000014 
004455 
005626 
004737 
004737 
000207 



105737 
001455 

01? 7 46 
012746 
010600 
104415 
062706 
012737 
012737 
004737 
012737 
G04737 
012737 
012737 
004737 
012737 
012737 
004737 

012746 
012746 
010600 
104415 
062706 



000207 



014050 
017402 



002214 



005306 
0OO001 



00OO04 
0OOO10 
000020 
015736 
000200 
015736 
000016 
0OO214 
015736 
000020 
000060 
015736 

OOM50 

000001 



000004 



SUBROUTINE TO HANOLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 

ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 

COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE, 

REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 

ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR, 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS: 



TCC7:: ERRDF 12.FATSM.STAERM 



JSR PC.RAMDUM 
JSR PC.DROPU 
RTS PC 



RAMDUM: : 

IFB RAMWRT NE 00 THEN 



PRINTX 4RAMFHR 



003406 
003342 

003342 

003406 
003342 

003406 
003342 



MOV 


*8. ,RAMSIZ 


MOV 


«20,RAMHLD 


J'.R 


PCRAMER 


MUV 


0200.RAMHLD 


JSR 


PC.KAMER 


MOV 


014. ,RAMSIZ 


MOV 


0214.RAMHLD 


JSR 


PC.RAMER 


MOV 


016. .RAMSIZ 


MOV 


460.HAMHLD 


JSR 


PC,K.\MER 


PRINTX 


0RAMLIN 



ENDIF 
RTS 



j REPORT FATAL 



;G0 DO RAM DUMP 
{DROP THE UNIT, 
t RETURN. 



SUBSYSTEM ERROR. 




TRAP 


CIF.ftDF 


.WORD 


12 


.UORD 


FATSM 


.WORD 


STAERM 



TSTB 


RAMURT 




BEQ 


50225$ 






MOV 


4>PAMFHR, 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


*4,SP 



j RAM FIELD IS 8 BYTES LONG 

l COMMAND PACKET ADDRESS 

j READ ANO PRINT THEM 

jCHARACTERISTICS PACKET ADDRESS 

l READ ANO PRINT THEM 

jRAM FIELD IS 8 BYTES LONG 

l MESSAGE PACKET ADDRESS 

» READ ANO PRINT THEM 

jRAM FIELD IS SIXTEEN BYTES LONG 

jSENCE BYTES ADDRESS 

j READ AND PRINT THEM 



PC 



MOV 


HAMLIN. -CSP) 


MOV 


♦ 1, CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


04.SP 


50225$! 





M8 
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3858 

3839 
384C 
3841 
3842 
384 3 
3844 
3845 
3846 
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SEQ 0103 



3847 



3848 
3849 
3850 

3851 
3852 

3853 

3854 



3855 

3856 
3857 



3858 
3859 
3860 

3861 

3862 

3863 

3864 
3865 



014212 

014212 

014216 

014220 

014220 

014222 

014224 

014226 

014230 

014234 

014240 

014240 

014242 

014244 

014244 

014244 

014244 

014250 

014250 

014256 

014260 

t 14260 

014266 

014270 

014270 

014274 

014274 

014276 

014300 

014302 

01.4304 

014310 

014314 

014314 

014316 

014316 

014316 

014316 

014320 

014320 

014320 

014326 

014330 

014330 

014334 

014334 

014336 

014340 

014342 



012602 
000441 



023727 
001020 

023727 
001013 

105237 



SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESSAGE 

IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4 . 

CALLS: DROPU 



005737 003434 
001012 



104455 
000013 
004654 
005626 
004/37 
004737 



014050 
017402 



105237 003473 
003434 



003464 
003474 



000002 
000020 



104455 

000016 

004372 

005626 

004737 014050 

004737 017402 

012602 



000413 



023727 003464 000020 
001007 

105237 003474 

104456 
000016 
00437? 
005626 



RT_E*: IF CMOLG EQ 40 THEN 



ERRDF 11, URERM, STAERM 



JSR PC.RAMDUM 
JSR PC, DROPU 
POP R2 

BR RTLRTN 
ENDIF 

LET RWERR :B- RWERR ♦ 41 

IF CMDLG EQ 42 THEN 

IF RETRYC EQ 4WRECL THEN 

LET UNREC :B* UNREC ♦ 41 
ERRDF 14, RLEXM, STAERM 



JSR PC.RAMOUn 
JSR PC, DROPU 
POP R2 

ENDIF 

ELSE 

IF RETRYC EQ 4RRECL THEN 

LET UNREC :B- UNREC ♦ 41 
ERRHRO 14, RLEXM, STAERM 



I IF CMD IS NOT A READ OR WRITE THEN: 

TST CMDLG 

BNE 50226 5 

{REPORT UNRECOVERABLE ERROR. 





TRAP 


C$ERDF 




.WORD 


11 




.WORD 


URERM 




.WORD 


STAERM 


j GO DO RAM DUMP 






{DROP THE UNIT. 






MOV 


(SP)*, 


,R2 



j AND RETURN. 

50226$: 
j SET READ/WRITE ERROR FLAG. 

INCB RWERR 
;IF CMD IS A WRT OR WTM: 

CMP CMDLG, 42 

BNE 50227$ 
;IF RETRY COUNT HAS REACHED LIMIT: 

CMP RETRYC, 4WRECL 

BNE 50230$ 
I SET UNRECOVERABLE FLAG 

INCB UNREC 
{REPORT RETRY LIMIT EXCEEDED. 





TRAP 


C$ERDF 




.WORD 


14 




.WORD 


RLEXM 




.WORD 


STAERM 


j GO DO RAM DUMP 






{DROP THE UNIT. 






MOV 


(SP)*, 


,R2 



50230$: 
{ELSE - CMD IS A READ; 

BR 50231$ 
50227$: 
;IF RETRY COUNT HAS REACHED LIMIT; 

CMP RETRYC, 4RRECL 
BNE 50232$ 
{SET UNRECOVERABLE FLAG 

INCB UNREC 
i REPORT RECOVERABLE ERROR. 

TRAP C$ERHRD 
.WORD 14 
.WORD RLEXM 



.WORD 



STAERM 
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3866 014344 
014344 

3867 014346 
014346 

3868 014346 
014346 

3869 014346 



012602 



000207 
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POP R2 
ENDIF 

ENDIF 
RTLRTN: RTS PC 



N8 



SEQ 0104 



{RETURN 



MOV (SP)+,R2 

50232$: 

50231$; 



B9 
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3871 
3872 
3873 
3674 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
388? 
^983 
3884 
3865 
3886 
3887 
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SEQ 0105 



3888 
3889 

3890 
3891 

3892 
3893 

3894 
3895 



3896 
3897 
3898 
3899 



3900 
3901 
3902 



3903 
3904 



3905 



014350 
014350 
014356 
014360 
014360 
014360 
014360 
014360 
014360 
014360 
014364 
014364 
014370 
014374 
014374 
014402 
014404 
014404 
014412 
014412 
014412 
014412 
014416 
014416 
014424 
014426 
014432 
014434 
014434 
0144 34 
014434 
014434 
014440 
014440 
014446 
014450 
014452 
014452 
014454 
014454 
014454 



105037 
004737 

026527 
001003 



SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 

REWRITE RECORD ON SAME SPOT i REPEAT 4 TIMES. 

IF ALL 4 REPEATS 3000, RECORD IS RECOVERED 

AND A RECOVERAf.Lc WRITE ERROR IS LOGGED. 

IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 

BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH 

ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 

THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 

SPOTS MAX ARE ALLOWED. 



INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 



R3.R4 
BORERS, REWRT 



026527 002536 
001537 



177774 



004737 015146 



0034 70 
015322 

002536 177774 



WRTYs: IF DEVTBLCR5) NE fNlNUSE THEN 



BEGIN RETRY 
REPEAT 

BEGIN REPEAT 
REPEAT 

JSR PC, BORERS 
LF.T WRTYER :B- *0 

JSR PC REWRT 

IF DEVTBLCR5) EQ fNINUSE THEN 



I IF DRIVE NOT DROPPED 

CMP DEVTBI_CR5),0NINUSE 

BEQ 50233$ 



502351; 



502371: 
iBACKSPACE/ERASE ONE RECORD 
iCLEAR WRITE RETRY ERROR 

CLRB WRTYER 

jREWRITE RECORD ON SAME SPOT 



11273? 000003 003466 



105237 003466 

123727 003466 000004 

00140! 

105737 003470 

001752 



005237 003464 

026527 002536 177774 

001002 

000502 

0QQ4QQ 



LET RPTCNT jB" #3 
ENDIF 

LET RPTCNT 5 B- RPiCNT ♦ #1 
UNTILB RPTCNT EQ *4 ORB WRTYER NE <K) 



CMP 
BNE 

MOVB 



ENO REPEAT 

LET RETRYC :« RETRYC ♦ *1 

IF 0EVTBLCR5) EQ ONINUSE THEN 



BR 
ELSE 



ENDIF 



31 



502401: 
iCOUNT REPEATS 
INCB 
iLlMIT: 
CMPB 
BEQ 
TSTB 
BEQ 
502411: 

I 

502361: 
iCOWT RETRIES 

INC 

CMP 
BNE 



BR 
502421 

502431 



DEVTBLCR5). ONINUSE 
502401 

♦3. RPTCNT 



RPTCNT 

4 REPEATS OR RECOVERED 

RPTCNT. 04 

5024 H 

WRTYER 

502371 



RETRYC 

DEVTBi (R5),*NINUSE 
50242$ 



502451 
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5906 

3907 
3908 
3909 

3910 



3911 

3912 

3913 

3914 

3915 
3916 

3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 

3927 



014454 
014454 
014460 
014462 
014462 
014464 
014464 
014464 
014464 
014470 
014472 
014472 
014474 
014500 
014504 
014510 
014514 
014516 
014520 
014524 
014524 
014524 
014524 
014532 
014534 
014534 
014542 
014542 
014546 
014552 
014552 
014556 
014556 
014562 
014564 
014564 
014570 
014570 
014572 
014572 
014576 
014576 
014576 
014576 
014576 
014576 
014602 
014602 
014606 
014606 
014612 
014612 
014612 
014612 
014620 
014622 
014622 



105737 003470 
001001 

000457 



105737 
001415 

005046 
153716 
013746 
012746 
012746 
010600 
104414 
062706 



002207 



003466 
003464 

014734 
000003 



000010 



023727 003464 000001 
001021 

016537 002550 003516 

017704 166750 

062704 000002 

010477 166740 

020427 000050 
101005 

013703 003516 

060304 

016514 003330 



105237 003533 
105037 003473 
105037 003466 



023727 003464 000004 
001257 
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IFB WRTYER EQ 00 THEN 

LEAVE RETRY 
ELSE 

IFB ERCVER NE 00 THEN 



SEQ 0106 



PRINTS 0BTMSG1 I RETRYC ( <B I RPTCNT> 



TSTB WRTYER 

BNE 50244 $ 

jEXIT RETRY LOOP IF RECOVERED 

BR 50234$ 

50244$? 

TSTB ERCVER 
BEQ 50246$ 

j PRINT SUSPECTED BA r ' 



ENOIF 

IF RETRYC EQ 01 THEN 



CLR 


-CS, 




BISB 


RPTt 


) 


MOV 


RETF. 


.') 


MOV 


•an; 


vSP) 


MOV 


• 3, -U..-J 


1 


MOV 


SP.RO 




TRAP 


CIPNTB 




ADO 


•10, SP 





LET BTPT 
LET R4 i< 



■ BTADDRCR5) 
S6TPT ♦ #2 



LET QBTPT j- R4 

IF R4 LOS 040. THEN 



BTPT 

R4 ♦ R3 

» RECCNKR5) 



LET R3 j 

LET R4 ; 
LET (R4) 
ENOIF 
ENOIF 

LET ERSFLG :B- ERSFLG ♦ *1 
LET RWERR :B- *0 
LET RPTCNT ;B- 00 
ENOIF 
UNTIL RETRYC EQ *4 

END RETRY 



50246$ j 
jON FIRST RETRY, LOGG BAD SPOT 

CMP RETRYC, 0\ 

BNE 5024 7$ 

iBTPT IS BOTH THE BAO SPOT COUNTER 

MOV BTAD0RCR5),BTPT 

lANO THE LOGGING INDEX 

MOV S6TPT,R4 

ADD *2,R4 

J 

MOV R4.S8TPT 

I 

CMP R4.040. 

BHI 50250$ 

I STORE FIRST 20 BAO SPOTS 

MOV BTPT.R3 



AOD R3,R4 

MOV RECCNT(R5),(R4) 

50250$: 



i 
J 

50247$; 
lERASE FLAG TO ERASE BAO RECOUU 

INCB ERSFLG 

iCANCELL "LOG" ERRW FLAG ON FAILING RETR> 

CLRB RWERR 

jCLEAR REPEAT COWT FOR NEXT RfeTRY 

CLRB RPTCNT 

50245$ : 
I LIMIT I 4 RETRIES 

CMP RETRYC t *4 

BNE 50255$ 



I 



502341* 



D9 
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3920 


014622 










014622 


105737 


003470 






014626 


001413 






3929 


014630 










014630 


105737 


002207 






014634 


001410 






3930 


014636 










014636 


012746 


015076 






014642 


012746 


000001 






014646 


010600 








014650 


104414 








014652 


062706 


000004 




3931 


014656 
014656 








3932 


014656 
014656 








3933 


014656 

014656 








3934 


014656 










014656 


012746 


000012 




3935 


014662 
014662 








3936 


014662 










014662 


012727 


000372 






014666 


000000 








014670 


013727 


002116 






014674 


000000 








014676 


005367 


177772 






014702 


001375 








014704 


005367 


177756 






014710 


001367 






3937 


014712 
014712 


005316 






3938 


014714 
014714 
014716 


005716 
001361 






3939 


014720 










014720 


062706 


000002 




3940 


014724 


000207 






3941 










3942 










3943 










3944 










3945 










3946 










394 7 


014726 


000000 






3948 


014730 


oooooo 






3949 


014732 


000000 






3950 










3951 










3952 


014734 


045 


101 


123 




014737 


125 


123 


120 




014742 


105 


103 


124 




014745 


040 


102 


101 




014750 


104 


040 


123 




014753 


120 


117 


124 




014756 


040 


101 


106 
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SEQ 0107 



IFB WRTYER NE 00 THEN 



IFB ERCVER NE 00 THEN 



PRINTB 0BTMSG3 



3*; 



ENOIF 
ENOIF 
ENOIF 
LET -CSP) :* 
REPEAT 
DELAY 250, 



#10. 



LET CSP) :- (SP) - 01 
UNTIL CSP) EQ #0 

LET SP :■ SP * 02 

RTS PC 



TSTB 


WRTYER 




BEQ 


502511 




TSTB 


ERCVER 




BEQ 


50252$ 




jPRINT RETRY FAILED 






MOV 


0BTM$G3,~CSP) 




MOV 


01, -CSP) 




MOV 


SP,RO 




TRAP 


CtPNTB 




ADD 


04, SP 


502521: 






502511: 






50233$: 






» LOOP CONTROL 






MOV 


010., -CSP) 


50253$: 






jWAIT FOR THE UNIT TO STOP 






MOV 


•250., (PC)* 




.WORD 







MOV 


LIDLY.CPO* 




.WORD 







DEC 


-6CPC) 




BNE 


.-4 




DEC 


-22CPC) 




BNE 


,-20 


»ONE LESS ITERATION 






DEC 


CSP) 




I 1 TILL ZERO! 






TST 


(SP) 




BNE 


50253* 




j POP THE STACK 






ADD 


02, SP 





UTYCMD: .WORD 
WTYWRD: .WORD 
WTYBRF: .WORD 



j STORAGE FOR WRITE CMC WHILE RETRYING 
jSTORAGE FOR WHITE CMO WORD WHILE RETRYING 
j STORAGE FOR WRITE BPCR WHILE RETRYING 



BTMSG1: .ASCIZ /*ASUSPECT BAD SPOT AFTER *D1*A RETR<, *D1*A REPEAT*N/ 
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E9 



SEQ 0108 



014761 


124 


105 


122 


014764 


040 


045 


104 


014767 


061 


045 


101 


014772 


040 


122 


105 


014775 


124 


122 


131 


015000 


054 


040 


045 


015003 


104 


061 


045 


0150O6 


101 


040 


122 


015011 


105 


120 


105 


015014 


101 


124 


045 


015017 


116 


OOO 




3953 015021 


045 


116 


045 BTMSG2: 


015024 


101 


102 


101 


015027 


104 


040 


124 


015032 


101 


120 


105 


015035 


040 


117 


126 


015040 


105 


122 


106 


015043 


114 


117 


127 


015046 


072 


040 


103 


015051 


110 


101 


116 


015054 


107 


105 


040 


015057 


103 


101 


122 


015062 


124 


122 


111 


015065 


104 


107 


105 


015070 


041 


045 


116 


015073 


045 


116 


000 


3954 015076 


045 


101 


122 BTMSG3} 


015101 


105 


124 


122 


015104 


131 


040 


106 


015107 


101 


111 


114 


015112 


105 


104 


040 


015115 


117 


116 


040 


015120 


102 


101 


104 


015123 


040 


123 


120 


015126 


117 


124 


056 


015131 


056 


056 


105 


015134 


122 


101 


123 


015137 


105 


104 


041 


015142 


045 


116 


000 



.ASCIZ /KNtfABAD TAPE OVERFLOW? CHANGE CARTRIDGE StfNtfN/ 



.ASCIZ /HARETRY FAILED ON BAD SPOT . . .ERASED !*N/ 



3955 



.EVEN 
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3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 



F9 
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3965 
3966 



3967 

3968 

3969 

3970 
3971 
3972 
3973 
3974 



3975 
3976 
3977 

3978 

3979 
3980 
3981 
3982 
3983 

3984 

3985 
3986 
3987 
3988 

3989 
3990 
3991 
3992 



015146 
015146 
015154 
015154 
015162 
015162 
015170 
015176 
015176 
015204 
015204 
015212 
015212 
015216 
015222 
015226 
015232 
015236 
015236 
015242 
015244 
015244 
015252 
015252 
015260 
015260 
015266 
015266 
015274 
015300 
015304 
015310 
015314 
015314 
015320 
015320 
015320 



015322 
015322 

015330 
015332 
015332 
015340 
015340 
015346 
015346 
015354 
015354 



013737 

012737 

013737 
042737 

013737 

012737 

005037 
004737 
004737 
004737 
004737 

105737 
001426 

013737 

012737 

013737 

013737 
004737 
004737 
004737 
004737 



026527 

001441 

013737 
013737 
013737 
013737 



003426 

104410 

003426 
004000 

002314 

000001 

0O3434 

007600 
010654 
011274 
017706 

003533 

003426 

100411 

003426 

002314 
007600 
010654 
011274 

017706 



105037 003533 



000207 



003426 
014730 
014726 
002314 



003432 

003426 

002314 
002314 

0C3430 

002316 



003432 
003426 
002314 
003430 



002536 177774 



003432 
003426 
002314 
003430 



SUBR TO BACSPACE ONE RECORD 

IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 



BORERS j 



INPUTS? 
OUTPUTS: 
REGISTERS: 
CALLS: 

LET PCMDWD 

LET CMOWRD 

LET CMDPKT 



ERSFLG 1 - DO ERASE 

EXCUTE. GOWAIT, CKHAE 
:• CMDWRD >SET COMMAND 
■ «SRR i 
- CMOWRD CLR.BY <teRF,C 



LET CMOSAV :- CMDPKT , 
LET CMDPKT fCP.ADL ;« tfl i 
Ltl CMOLG ;• 00 



JSR PC.CMOAC 

JSR PC, EXCUTE 

JSR PC.GOWAIT 

JSR PC, CKHAE 

IFB ERSFLG NE *0 THEN 



TO SPACE REV 
MOV 

MOV 
J 

MOV 
BIC 

MOV 

MOV 

CLR 



CMDWRD, PCMDWD 

*SRR, CMOWRD 

CMOWRD, CMOPKT 
06RF.C, CMDPKT 

CMOPKT, CMOSAV 

n.CMOPKT*CP.ADL 

CMDLG 



iWHEN ERASE FLAG IS SET, DO ERASE 



LET PCMOWO 
LET CMOWflD 
LET CMDPKT 
LET CMOSAV 



CMOWRD 
GERS 
CMDWRD 
CMDPKT 



JSR PC.CMOAC i 

JSR PC. EXCUTE 

JSR PC.GOWAIT 

JSR PC, CKHAE 

LET ERSFLG :B" 00 

ENOIF 

RTS PC 

SUOR TO REWRITE A BADLY WRITTEN RECORD 



REWRT: IF DEVTBLCR5) NE 4NINUSE THEN 



TSTB 
BEQ 


ERSFLG 
50254$ 


MOV 


CMDWRD, PCMOWO 


MOV 


^ERS, CMOWRD 


MOV 


CMOWRD. CMOPKT 


MOV 


CMDPKT, CMOSAV 



CLRB 
50254$ 



ERSFLG 



SEQ 0109 



LET 


PCMDWD 


• m 


CMOWRD 


I 


LET 


CMOWRD 


■ ■ 


WTYWRD 


J 


LET 


CMOPKT 


• a 


WTYCMD 


J 


LET 


CMOSAV 


• * 


CMDPKT 


i 



i IF DRIVE NOT DROPPED 

CMP 
BEQ 
tRESTORE WRITE COMMANO PACKET 

MOV 

MOV 
MOV 
MOV 



DEVTBl.(R5),*NINUSE 
50255$ 

CMOWRD, PCMDWD 

WTYWRD. CMOWRD 

WTYCMO, CMOPKT 

CMDPKT, CMOS A V 



G9 
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3993 015362 
015362 

3994 015370 
015370 

3995 015376 
015376 

3996 015404 

3997 015410 

3998 015414 
015414 
015422 

3999 015424 

4000 015430 

4001 015434 
015434 

4002 015434 
015434 

4003 015434 



013737 
013737 

012737 
004737 
004737 

026527 
001404 
004737 
004737 



000207 



003414 

014732 

000002 
007600 
010654 



002316 
002322 
003434 



002536 177774 

011274 
017706 



LET 


CMDPKT*CP,ADL 


j- DATAWT 


j 


LET 


CMDPKT*CP.CNT 


:■ WTYBRF 


i 


LET 


CMOLG :- 02 




j 



JSR PC.CMOAC 
jcp p£ EXCUTE 

IF DEVTBLCR5) NE 4NINUSE THEN 



JSR PC.GOWAIT 
JSR PC.CKHAE 
ENOIF 



ENDIF 
RTS PC 



{ RE -WRITE RECORD 



SEQ 0110 



MOV 


DATAWT, CMDPKT*CP.ADL 


MOV 


WTYBRF .CMDPKT+CP.CNT 


MOV 


02.CMDLG 


CMP 
BEQ 


DEVTBL(R5),*NIN'JSE 
50256$ 


50256$: 




50255$: 





H9 



GLOBAL AREAS MACRO M1200 
GLOBAL SUBROUTINES SECTION 



21-MAR-64 16:45 PAGE 88 



4005 








4006 








4007 








4008 








4009 








4010 








4011 








4012 


015436 








015436 


105737 


003472 




015442 


001126 




4013 


015444 








015444 


105237 


003472 


4014 


015450 








015450 


013704 


003434 


4015 


015454 








015454 


005704 






015456 


001520 




4016 


015460 








015460 


162704 


000002 


4017 


015464 








015464 


010502 






015466 


066402 


015722 




0154 72 


062702 


002560 


4018 


015476 








015476 


063712 


003424 


4019 


015502 








015502 


023737 


002344 003424 




015510 


101002 




4020 


015512 








015512 


163712 


002344 


4021 


015516 
015516 






4022 


015516 








015516 


010203 






015520 


062703 


000010 


4023 


015524 
015524 








015524 


021227 


001747 




015530 


003404 




4024 


015532 








015532 


162712 


001750 


4025 


015536 








015536 


005213 




4026 


015540 








015540 


000771 






015542 






4027 


015542 








015542 


010302 






015544 


062702 


000010 


4028 


015550 
015550 








015550 


021327 


001747 




015554 


003404 




4029 


OVJV > 








c- IS 


162713 


001750 


4030 


01556^ 








*' < ji>6* 


005212 





SEQ 0111 



SUBROUTINE TO LOG BYTES READ/WRITTEN. 

ALSO UPDATES READ/WRITE ERROR COUNTERS. 

INPUTS: 

OUTPUTS : 

REGISTERS? R2, R3, R4 . 

CALLS: 



LOG:? IFB ERLOG EQ 00 THEN 



LET ERLOG ?B* ERLOG * 01 
LET R4 :- CMOLG 
IF R4 NE 00 THEN 

LET R4 ?- R4 - 02 



j IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 

TSTB ERLOG 

BNE 5025 7 ( 

I SET LOG DONE FLAG. 

INCB ERLOG 

; GET CURRENT CMD LOGGING CODE. 

MOV CMDLG.R4 

j IF THERE IS A CODE THEN: 

TST R4 

BEQ 50260$ 

I ADJUST THE CODE FOR TABLE INOEX, 

SUB C2.R4 

LET R2 ?- R5 f BINCCR4) * OCNTBGN ;R2 - ADR OF BYTE COUNT LSW. 

MOV R5.R2 

ADD BINCCR4),R2 

ADD OCNTBGN, R2 

LET (R2) :- C' n .2) * BRFCNT jADD BRF TO LSW. 

ADO BRFCNT CR2) 

IF MSGPKUMS.RFC LOS BRFCNT THEN j IF THE RFC 15 LOWER OR THE SAME AS BRF THEN: 

CMP MSGPKT *MS . RFC , BRFCNT 

BHI 502611 

LET (R2) :- (R2) - MSGPKT*MS.RFC jSLtfTRACT RFC FROM EXPECTED BRF. 



ENOIF 

LET R3 ?- R2 ♦ 010 

WHILE (R2) GT 0999. 00 



LET (R2) 
LET (R3) 
ENODO 



(R2) - 01000. 
(R3) ♦ 01 



LET R2 ?• R3 ► 010 
WHILE (R3) GT 0999. DO 

LET (R3) :- (R3) - 01000. 
LET (R2) ;• (R2) ♦ 01 



SUB 

50261$ 
jR3 * ADR OF 2ND UORO. 

MOV 
ADD 

50262$ 

CMP 

BLF 

lUPDATE BYTE COUNT 

SUP 

j 2ND WORD. 

INC 

BR 

50263$ 
;R2 - ADR OF 3RD WORD, 

MOV 
ADD 

50264$ 

CMP 

BLE 

jUPDATE BYTE COUNT 

SUB 

i3RD WORD, 

INC 



MSGPKTfMS.RFC t CR2) 



R2.R3 
010, R3 



(R2),&999. 
50263$ 

010OO.,(R2) 

CR3) 

50262$ 



R3.R2 
<U0.R2 



(R3),0999. 
50265$ 

010O0..CR3) 

(R2) 
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4031 
4032 
4033 

4034 
4035 
4036 

4037 

4038 

4039 

4040 
4041 
4042 

4043 
4044 

4045 
4046 



4047 
4048 
4049 



015564 

015564 

015566 

015566 

015566 

015570 

015574 

015574 

015574 

015600 

015602 

015602 

015606 

015606 

015610 

015610 

015612 

015612 

015612 

015616 

015620 

015620 

015622 

015626 

015632 

015632 

015636 

015640 

015640 

015644 

015644 

015646 

015646 

015650 

015650 

015650 

015652 

015652 

015656 

015660 

015660 

015664 

015666 

015672 

015674 

015674 

015700 

015704 

015710 

015712 

015714 

015720 

015720 

015720 

015720 

015720 

015720 



000771 



010203 
062703 



021227 
003404 

162712 

005213 

000771 

105737 
001440 

010502 
066402 
062702 

105737 
001404 

062702 

005212 

000424 

005212 

105737 
001020 

105737 
001015 
105737 
001412 

013746 
012746 
012746 
010600 
104414 
062706 



OOOOIO 
001747 
001750 



003473 

015730 
002720 

003474 
000010 



002210 

003527 
002207 



003464 
005155 
0OO002 



000006 
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ENDDO 






BR 
50265$; 


50264$ 


LET R3 j- R2 ♦ 010 




|R3 - ADR OF 


4TH WORD. 
MOV 
ADD 


R2.R3 

#10, R3 


WHILE CR2) GT #999. 


DO 




50266$: 

CMP 

BLE 


(R2),#999. 
50267$ 


LET CR2) :- CR2) 


- #1000. 


lUPDATE BYTE 


COUNT 
SUB 


#1000., (R2) 


LET CR3) :- (R3) 


f #1 


j4TH WORD. 


INC 


(R3) 


ENODO 






BR 


50266$ 



SEQ 0112 



IFB RWERR NE #0 THEN 



50267$: 
j IF R/W ERROR. UPDATE ERROR COUNT, 

TSTB HHERR 

BEQ )270$ 

LET R2 :■ R5 ♦ EINCCR4) * frWRREC jR2 - ADR OF COUNTtM. 

MOV R5.R2 

ADD EINCCK4),R2 

ADD #WRREC.R2 

j IS THE ERROR UNRECOVERABLE? 

TSTO UNREC 

BEQ 50271$ 

lYES, POINT TO NEXT COUNTER. 

ADD #10. R2 

lUPDATE THE ERROR COUNTER 

INC (R2) 

{ELSE - IF ERROR IS RECOVERABLE: 

BR 50272$ 

50271$: 
;UPDATE THE ERROR COUNTER 

INC CR2) 

I IF ERROR RECOVERY IS ENABLED: 

TSTB IREC 

BNE 50273$ 

IFB DROPED EQ #0 ANOB ERCVER NE #0 THEN j IF UNIT HAS NOT BEEN DROPPED: 

TSTB DROPEO 

BNE 50274$ 

TSTB ERCVER 

BEQ 50? 74$ 

PRINTB #NURTY1,RETRYC jPRINT # OF RETRIES TO RECOVER 

MOV RETRYC.-CSP) 

MOV #NURTY1,-(SP^ 

MOV #2.-CSP) 

MOV SP.RO 

TRAP C$PNTB 

ADD *6,SP 

END1F ^PROVIDED PRINT HAS BEEN ENABLED 

50274$ 
END IF 

50273$ 
ENDIF 

50272$ 



IFB UNREC NE #0 THEN 

LET R2 :- R2 ♦ #10 

LET CR2) :■ CR2) * #1 
ELSE 

LET CR2) :» (R2) ♦ #1 
IFB IREC EQ #0 THEN 



J9 
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4050 

4051 

4052 

4055 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 



015720 
015720 
015720 
015720 
015720 
015720 
015720 

015722 
015724 
015726 

015730 
015732 
015734 
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ENOIF 



000207 

OOOOOO 
000040 
000100 

OOOOOO 
000020 
000040 



BINC: 



EINC: 



SEQ 0113 





502701 


ENOIF 






50260$ 


ENOIF 






50257$ 


RTS PC 




INOEXES TO BYTE COUNTERS. 




jURITE. 




40 tREAD REV. 




100 iREAD FWO. 




INOEXES TO READ/WRITE ERROR COUNTERS. 




(WRITE. 




20 j READ REV. 




40 j READ FWD. 
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SEQ 0114 



4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 

4075 
4076 
4077 
4078 
4079 
4080 
4081 
408? 
4083 
4084 
40S5 
4086 
4087 
4086 
4089 
4090 
4091 



4092 
4093 
4094 
4095 
4096 
4097 



4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
410 7 
4108 
4109 



015736 
015740 
015742 
015744 
015746 
015750 
015754 
015760 
015764 
015770 
015772 
015774 
016O00 
016002 
016006 
016012 
016016 
016020 
016024 
016030 
016032 
016036 
016036 
016040 
016042 
016046 
016052 
016054 
016056 
016062 
016066 
016072 
016074 
016076 
016102 
016102 
016104 
016110 
016114 
016116 
016120 
0J6124 
016126 
016130 
016132 
016134 
016136 
016140 



010546 
010446 
010346 
010246 
01014C 
012701 
013702 
013703 
016504 
005204 
000240 
004737 
110214 
004737 
117521 
062702 
077313 
013704 
013702 
060204 
162704 

010446 
010246 
012 746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

010446 
012746 

012746 
010600 
104415 
062706 
077316 
012601 
012602 
012603 
012604 
012605 
000207 



003346 
003342 
003406 
002456 



011672 

011672 
002456 
000001 

003406 
003342 

000001 



005365 
000003 



000010 
003346 
003406 



177400 



005436 
000002 



000006 



.S8TTL RAMER - READ AND DISPLAY SELECTED RAM 



j ROUTINE TO READ THE SELECTED RAM LOCATIONS 



RAMER! 5 


MOV 


R5.-CSP) 




MOV 


R4.-CSP) 




MOV 


R3,(SP) 




MOV 


R2.-CSP) 




MOV 


R1,-CSP) 




MOV 


0RAM0ATA,R1 




MOV 


RAMHLD.R2 




MOV 


RAKSIZ.R3 




MOV 


TSDBCR5),R4 




INC 


R4 


10$: 


NOP 






JSR 


PC, USSR 




MOVB 


R2.CR4) 




JSR 


PC,WSSR 




MOVB 


8TSBACR5),CRl)f 


20$: 


ADD 


♦1.R2 




SOB 


R3,10$ 




MOV 


RAMSIZ,R4 




MOV 


RAMHLD,R2 




ADD 


R2,R4 




sue 


♦1.R4 




PRINTX 


ORAMI0P,R2,R4 



1 ADDRESS TO SAVE THE RAM DATA 
jBYTE ADDRESS OF THE FIRST RAM DATA 
{SET THE SIZE OF THE READ UP 
j MOV THE TSDB ADDRESS INTO R4 
{ADD 1 TO IT 

jWAIT FOR THE SSR TO SET 

I SELECT NEXT RAM ADDRESS 

i WAIT FOR SSR TO SET 

I READ THE RAM DATA 

j ADDRESS OF THE NEXT RAM LOCATION 

I NUMBER OF LOCATIONS COUNTER 

i GET THE RAM SIZE 

{GET THE STARTING RAM ADDRESS 

{CALCULATE THE END ADDRESS 

j CORRECT VALUE OF PRINTOUT 

.-RAM ADDRESS - 10 - 17, ETC. 



30$ 







MOV 


R4,-(SP) 






MOV 


R2.-CSP) 






MOV 


*HAMIOP,-(SP) 






MOV 


03,-CSP") 






MOV 


SP.RO 






TRAP 


CiPNTX 






ADD 


#10, SP 


MOV 


ORAMOATA.Rl 


j ADDRESS OF WHERE RAM DATA IS 




MOV 


RAMSIZ,R3 


j THE SIZE OF THE RAM FIELD 9EAD 




CLR 


R4 


t N0 EXTRA DATA LEFT OVER 




MOVB 


CR1)*,R4 


{PICK UP BYTE OF RAM DATA 




BIC 


$177400, R4 


l GET RID OF SIGN EXTEND 




PRINTX 


*RAMPD,R4 


;"010 211 111 222 377 000 123 134 ETC. 


II 






MOV 


R4.-CSP) 






MOV 


OftAMPD, -ISP) 






MOV 


♦2,-CSP) 






MOV 


SP.RO 






TRAP 


C*PNTX 






ADD 


*6,SP 


soe 


R3.30* 


{LOOP UNTIL ALL PRINTED 





50$ 



MOV (SP)».R1 

MOV (SP)*,K2 

MOV (SP)*,R3 

MOV (SP)*,R4 

MOV (SP)*,R5 

RTS PC 
IF A WRITE/VERIFY 



(RETURN 
COMMAND IS ISSUED, 



CONTROL IS THEN 



TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE. CHECK DATA, 
READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 
INPUTS: 
OUTPUTS: 



L9 



GLOBAL AREAS MACRO M1200 21 -MAR -84 
RAMER READ AND DISPLAY SELECTED RAM 



16:45 PAGE 89-1 



4110 










4111 










4112 










4113 


016142 










016142 


005037 


003410 




4114 


016146 










016146 


105737 


003522 






016152 


001437 






4115 


016154 










016154 


105737 


003532 






016160 


001015 






4116 


016162 










016162 


013737 


003426 


003432 


4117 


016170 










016170 


012737 


104401 


003426 


4118 


016176 










016176 


012737 


000004 


003434 


4119 


016204 


004737 


016254 




4120 


016210 










016210 


005037 


003410 




4121 


016214 
016214 








4122 


016214 










016214 


026527 


002536 


177774 




016222 


001413 






4123 


016224 










016224 


0137*7 


003426 


003432 


4124 


016232 










016232 


012737 


104001 


003426 


4i25 


016240 










016240 


012737 


000006 


003434 


4126 


016246 


004737 


016254 




4127 


016252 
016252 








4128 


016252 
016252 








4129 


016252 


000207 







i 



REGISTERS: 
CALLS; 



VFEXC. 
VFYDAT:; LET CMPDAT t" 00 

iFB VFYFLG NE 00 THEN 

IFB STREAM EQ 00 THEN 



LET 


PCMDWD :- 


CMOWRD 


LET 


CMDUIRD :- 


ORDR 


LET 


CMOLG : ■ 


OA 


JSR 
LET 


PC.VFEXC 
CMPDAT •■ 


*0 



ENOIF 
IF 0EVTBLCR5) NE ONINUSE THEN 



LET 


PCMDWD 


:- CMOWRD 


LET 


CMOWRD 


;• ORDF 


LET 


CMDLG 


: - 06 


JSR 
ENOIF 


PC.VFEXC 


ENDIF 






RTS 


PC 





SEQ 0115 



jBTL 

CLR CMPDAT 
j IF DATA IS TO BE VERIFIED: 

TSTB VFYFLG 

BEQ 50275$ 

TSTB STREAM 

BNE 50276$ 
j SAVE THE PREVIOUS COMMAND WORD. 

MOV CMOWRD, PCMDWD 
; COMMAND IS READ REV. 

MOV *RDR, CMOWRD 
j SET UP CMD LOGGING INDEX. 

MOV 04, CMOLG 
j GO READ ALL THE RECORDS REV. 
:BTL 

CLR CMPDAT 

50276$: 

CMP DEVTB'^(R5),*NINUSE 

OEQ 50277$ 
jSAVE THE PREVIOUS COMMAND WORD. 

MOV CMOWRD, PCMDWD 
t COMMAND IS READ FWD. 

MOV ORDF , CMOWRD 
i SET UP CMO LOGGING INDEX. 

MOV 06, CMOLG 
:G0 READ ALL RECORDS FWD. 

50277$: 

50275$: 
(RETURN, 
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4151 
41X2 
4133 
4134 
4135 
4136 
4137 



M9 
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4138 

4139 

4140 

4141 

4142 
4143 

4144 



4145 
4146 
4147 
4148 
4149 
4150 



4151 
4152 
4153 

4154 



4155 
4156 

4157 



4158 
4159 

4160 



016254 
016254 
016262 
016270 
016270 
016274 
016276 
016276 
016304 
016304 
016304 
016304 
016312 
016320 
016320 
016324 
016324 
016324 
016332 
016334 
016340 
016344 

016346 
016352 
016352 
016352 
016360 
016362 
016362 
016370 
016372 
016372 
016400 
016402 
016402 
016410 
016412 
016412 
016416 
016420 
016424 
016424 
016424 
016424 
016426 
016426 
016432 
016432 
016432 
016432 



013737 
042737 

105737 
001403 



023737 
002101 
004737 
105737 
001006 



026527 
001445 

032737 
001421 

032765 
001014 

032765 
001406 

105737 
001402 
004737 



000402 
004737 



003426 002314 
004000 002314 

003524 



052737 010000 002314 



013737 002314 003430 
013737 003416 002316 

005037 003420 



003420 003422 

007600 
003532 



004737 017300 



002536 177777 

000400 003426 

000002 003506 

000001 003506 

003531 
016540 



016540 



1$: 



SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: CMDAC. FIRSTU, VFISU, NEXTU. CKHAE. 



VFEXC:: LET CMDPKT :- CMDWRD CLR.BY OBRF.C 
IFB SWBFLG NE 00 THEN 



{COMMAND PACKET - READ REV OR FWD. 
MOV CMDWRD, CMDPKT 
BIC 06RF.C, CMDPKT 
I IF BYTES ARE TO BE SWAPPED: 

TSTB SWBFLG 
BEQ 50300$ 
LET CMDPKT :- CMDPKT SET. BY OSWB.C ;SET SWAB BIT IN CMD PACKET. 



ENDIF 

LET CMDSAV 



BI! 



0SWB.C, CMDPKT 



CMDPKT 



50300$: 
{SAVE COMMAND PACKET 1ST WORD. 

MOV CMDPKT, CMDSAV 
{SAVE BUFFER START ADDRESS, 
{CLEAR NUHBER OF OPERATIONS. 

CLR NCNT 
{WHILE THERE ARE RECORDS REMAINING; 

50301$: 

CMP NCNT, NCNT 1 

BGE 50302$ 

I STORE CMD ASCII IN ERROR MSG. 
{CHECK IF WE ARE STREAMING 
.•BRANCH OVER DEVTBL CHECK, THIS ENABLES 
{US TO TEST ONE DRIVE AT A TIME. 
JSR PC, FIRSTU {SET UP FOR FIRST UNIT. 

WHILE DEV1BLCR5) NE OEND DO {WHILE THERE ARE DEVICES REMAINING: 

50303$: 

ChiP DLVTBL(R5),0END 
BEQ 50304$ 
IF GMOD.CO SETIN CMDWRD THEN } IF CMD IS REVERSE THEN; 

BIT #MOD. CO, CMDWRD 



MOV DATARD , CMDPKT + CP , ADL 
LET NCNT r- <K) 

WHILE NCNT LT NCNT1 DO 



JSR PC, CMDAC 
TSTB STREAM 
BNE 1$ 



SEQ 0116 



IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN 
IF 0X0. EOT SETIN E0TFLGCR5) THEN 
IFB Al.LEOT NE 00 THEN 



JSR PC, VFISU 

ENDIF 



ELSE 



JSR PCVFISU 
ENDIF 



ENDIF 



BEQ 50305$ 

I IF NOT AT BOT 

BIT OX0.B0T.E0TFLGCR5) 

BNE 50306$ 

{BUT IF AT EOT 

BIT OX0.E0T.E0TFLGCR5) 

BEQ 50307$ 
{AND ALL OTHERS AT EOT 

TSTB ALLEOT 

BEQ 50310$ 

{THEN READ VERIFY 
{IF NOT ALL AT EOT, FREEZE UNIUS) AT E 

50310$: 

{IF NOT AT BOT AND 

BR 50311$ 

50307$; 

;NOT AT EOT, READ VFY 

50311$: 
50306$: 
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4161 


016432 

016432 
016434 


000412 






4162 


016434 










016434 


032765 


000001 


003506 




016442 


001404 








016444 


32737 


000001 


003426 




016452 


001002 








016454 








4163 










4164 


016454 


004737 


016540 




4165 


016460 
016460 








4166 


016460 
016460 








4167 


016460 


105737 


003532 




4168 


016464 


001003 






4169 


016466 


004737 


017346 




4170 


016472 
0164 72 
016474 


000727 






4.1.71 


016474 


004737 


017706 




'172 


016500 










016500 


026527 


002536 


177774 




016506 


001005 






4173 


016510 










0165.10 


013737 


003422 


003420 




016516 


005337 


003420 




4174 


016522 
016522 








4175 


016522 










016522 


005237 


003420 




4176 


016526 










016526 


013737 


003426 


003432 


4177 










4178 


016534 
016534 

016536 


000673 






4179 


01*336 


000207 







16 {45 PAGE 90-1 

ELSE 



2$ 



SEQ 0117 



j ELSE IF CMD IS NOT REVERSE: 

BR 50312$ 
50305$; 
IF 0X0. EOT NOTSETIN E0TFLGCR5) OR 0CMD.CO NOTSETIN CttDWRD THEN 

BIT 4X0.E0T.E0TFLGCR5) 

BEQ 50313$ 

BIT OCMD. CO, CMDWRD 

BNE 50314$ 

50313*. 

{IF NOT AT EOT OR NOT A MOTION CMD THEN: 
{ISSUE CMD, CHECK STATUS AND DATA. 



JSR PC.VFISU 

ENDIF 



END1F 

TSTB STREAM 
BNE 2$ 

vJSR PC.NEXTU 
ENDDO 



50314$: 

50312$: 

CHECK FOR TEST OF ON UNI I AT A TIME. 
BRANCH, IF STREAMING TESTS. 
GO FIND THE NEXT UNIT. 



BR 50303$ 
50304$: 
} CHECK FOR HALT AFTER EACH CMO . 
IF DEVTBLCR5) EQ 4NINUSE THEN j IF DRIVES BEEN DROPPED EXIT 

CMP DF.VTBLCR5 ) , ONINUSE 
BNE 50315$ 



JSR PC.CKHAF. 



LET NCNT :' 

ENDIF 

LET NCNT - 

LET PCMDWD 



NCNT1 - #1 

NCNT ♦ 41 
- CMDWRD 



MOV NCNT1.NCNT 
DEC NCNT 

50315$: 
{UPDATE THE RECORD COUNT. 

INC NCNT 
;SAVE PREVIOUS COMMAND WORD. 

MOV CMDWRD, PCMDWD 



ENDDO 
RTS 



PC 



{RETURN 



BR 50301$ 
50302$: 



BIO 
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SEQ 0110 



4181 










I SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 




4182 










j CHECK STATUS, CHECK DATA, 




4183 










i INPUTS} 






4184 










I OUTPUTSi 






4185 










j REGISTERS: R2 






4186 










i CALLS* EXCUTE 


, GOWAIT, CKDATA, 




4187 
















4188 


016540 








VFISU:s 






4189 


016540 








LET R2 t" DATARD ♦ 08 , 


lINIT READ BUFFER POINTER. 






016540 


013702 


003416 






MOV 


DATARD, R2 




016544 


062702 


000010 






ADD 


08., R2 


4190 


016550 
016550 








WHILE R2 NE DATARD DO 


jUNTIL 8 BYTES HAVE BEEN SET, 

503161? 






016550 


02023 7 


003416 






CMP 


R2, DATARD 




016554 


001403 








BEQ 


50317$ 


4191 


016556 








LET -(R2) j- 0-1 


lINIT READ BUFFER. 






016556 


012742 


177777 






MOV 


0-1, -(R2) 


4192 


016562 








ENDDO 








016562 


0007 72 








BR 


50316$ 




016564 










50317$. 




4193 


016564 


00-4737 


010654 




JSR PC, EXCUTE 


|G0 EXECUTE THE COMMAND. 




4194 


016570 








IFB DROPED EQ #0 THEN 


tlF UNIT HAS NOT BEEN DROPPED THEN: 




016570 


105737 


003527 






TSTB 


DROPED 




016574 


001002 








BNE 


50320$ 


4195 


016576 


004737 


011274 




JSR PC.GOWAIT |G0 WAIT FOR DONE BIT. 




4196 


016602 
016602 








ENDIF 


503201: 




4197 


0)6602 








IFB DROPED EQ #0 THEN 


lIF WIT HAS NOT BEEN DROPPED THEN: 




016602 


105737 


003527 






TSTB 


DROPEO 




016606 


001025 








BNE 


50321$ 


4198 


016610 








IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN (WHEN NOT REVERSED INTO BOT. Th€N 




016610 


032765 


000002 


003506 




BIT 


♦XC.B0T.E0TFLGCR5) 




016616 


001021 








BNE 


50322$ 


4199 


016620 








IF LITEST NE 03 THEN 








016620 


023727 


002114 


000003 




CMP 


LITEST, 03 




016626 


001403 








BEQ 


50323$ 


4200 


016630 


004737 


016664 




JSR PC.CKDATA 


jGO VERIFY DATA, 




4201 


016654 








ELSE 








016634 


000412 








BR 


50324$ 




016636 










50323$: 




4202 


016636 


005237 


003410 




INC CMPOAT 


»ONE MOR£ XFER BEFORE. A COMPARISON 


4203 


016642 








IF CMPDAT GT DATRAT 


THEN 






016642 


023737 


003410 


003412 




CMP 


CMPDAT. DATRAT 




016650 


003404 








BLE 


50325$ 


4204 


016652 


0O4737 


016664 




JSR PC<CKQMTA 




4205 


016656 








LET CMPQAT i» 00 








016656 


005037 


003410 






CLR 


CMPDAT 


4206 


016662 
016662 








ENDIF 


50325 1: 




4207 


016662 
016662 








ENDIF 


50324$: 




4208 


016662 
016662 








ENOIF 


50322$: 




4209 


016662 
016662 








ENDIF 


50321*4 




4210 


016662 


QQQ2Q7 






RTb PC 






4211 

















CIO 
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RAM 


4215 










4214 










4215 










4216 










4217 










4213 










4219 










4220 


016664 






C 




016664 


015705 


005424 






016670 


165705 


002344 




4221 


016674 
016674 
016676 


005705 
001015 






422^ 


015700 
0^6700 
016702 
016704 
016706 


104456 
000021 
0O4246 
005460 






4223 


016710 










016710 


012746 


005072 






016714 


012746 


000001 






016720 


010600 








016722 


104414 








016724 


062706 


000004 




4224 


016750 
016750 

016752 


000560 






4225 


016752 










016732 


020357 


003424 






016756 


101417 






4226 


016740 
016740 
016742 
016744 
016746 


104456 
000021 
004246 
005460 






4227 


016750 










016750 


015746 


002322 






016754 


012746 


005113 






016760 


012746 


00O002 






016764 


010600 








016766 


104414 








016770 


062706 


000006 




4228 


016774 
016774 
016776 


000536 






4229 


016776 










016776 


010557 


017274 






017002 


005337 


017274 




4230 


01700C 


005037 


017276 




4251 


017012 


005002 






4232 


01/014 










017014 


013703 


005414 




4253 


017020 










017020 


013704 


005416 




4234 


017024 










017024 


10573? 


003530 






017030 


001401 
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SEQ 0119 



CKDATAi 



SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 

ANO PRINT ERROR MESSAGE ON MISCOMPARE , 

INPUTS} 

OUTPUTS: 

REGISTERS? R2, R5, R4 , 

CALLS: GCMDA 

LET R3 :■ BRFCNT - MSGPKT ♦ MS, RFC iCOMPUTE REC LENGTH READ 

MOV BRFCNT, R3 

Sue MSGPKTfMS,REC,R5 

IF R3 EQ *0 THlN jWHEN NO DATA RECEIVED 

TST R3 

BNE 503261 

ERRHRD 17,WTVERM,DTAERM jPRINT ERROR ANO EXIT 



PRINTS <K)TAER4 



j COMPARE ROUTINE 



ELSE 

IF R3 HI BSFCNT THEN 

ERRHRD 17,WTVERM,DTAERM 

PRINTB 0DYAER5,CMOPKT*CP.CNT 



TRAP 


CIERHRD 


.WORD 


17 


.WORD 


WTVERM 


.WORD 


DTAERM 


MOV 


*0TAER4,-CSP) 


MOV 


•1, (SP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADO 


04, SP 



ELSE 

LET CKDCNT j • R3 - 01 

CLR CKDFF 

CLR R2 

LET R3 j - DATAWT 

LET R4 :• DATARD 

IFB TISWB NE 00 THEN 



BR 505271 
5052615 
jWHEN REC READ IS LONGER 

CMP R5.BRFCNT 
8L0S 505501 
I THAN EXPECTED, PRINT 

TRAP 
.WORD 
.WORD 
.WORD 
|AN ERROR MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
jAND EXIT ROUTINE 

BR 50331$ 
50350$! 
»SAVE VERIFICATION LENGTH - 
MOV R3, CKDCNT 
DEC CKDCNT 
iCLEAR * Of" BtTES IN ERROR COUNTER, 
jINIT BYTE COUNTER 
I GET WRITE BUFFER ADDRESS, 

MOV DATAWT t R3 
I GET READ BUFFER ADDRESS. 

MOV DATARD, R4 
jWHEN RUNNING TEST! -SUB 12, 

TSTB T1SW6 
BEQ 50332* 



C$ERHRD 
17 

WTVERM 
DTAERM 

CMDPKT»CP.CNT,-(SP) 

♦0TAER5.-CSP) 

#2,-(SP) 

SP,RO 

C$PNTB 

06, SP 



I. 
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SEQ 0120 



4235 
4236 

4237 

4238 

4239 
4240 

4241 

4242 
4243 

4244 

4245 

4246 
4247 
4248 
4249 

4250 
4251 
4252 



4253 

4254 
4255 
4256 

4257 
4258 



4259 



4260 

4261 
4262 



017032 

017034 

017034 

01 7034 

017034 

017034 

017034 

017040 

017042 

017042 

017046 

017050 

017050 

017056 

017060 

017062 

017064 

017064 

017064 

017064 

017064 

017064 

017064 

017066 

017070 

017074 

017076 

017102 

017106 

017106 

017X10 

017112 

017114 

017116 

017116 

017122 

017126 

017134 

017140 

017146 

017146 

017154 

017156 

017156 

017160 

017164 

017166 

017172 

017174 

017200 

017204 

017206 

017210 

017214 

017214 

017214 

017216 



000313 



121314 
001452 
005737 
001010 
005265 
005265 

104456 
000021 
004246 
005460 

005237 
111437 
042737 
111337 
042737 

023727 
002017 

005046 
153716 
005046 
153716 
010246 
012746 
012746 
010600 
104415 
062706 



105 723 
105724 



SWAB 
ENDIF 

REPEAT 



(R3) 



020237 017274 
001011 

105737 003524 
001406 

032737 000001 017274 

001002 

105723 

105724 



017276 

003300 
003310 



017276 
003444 

177400 003444 

003446 

177400 003446 

017276 000013 



003446 

003444 

004761 
000004 

000012 



2$: 



j SWAP FIRST WORD OF WRT BFR 

j WHICH CONTAINS THE RECORD COUNT 

50332$: 

iREPEAT UNTIL ALL DATA IS COMPARED: 

50333$: 

I IF THIS IS THE LAST BYTE THEN: 

CMP R2, CKDCNT 
BNE 503341 

,IF BYTE SWAPPIr^G IS ENABLED THEN: 

TSTB SWBFLG 
BEQ 50335$ 
IF OBITOO NOTSETIN CKDCNT THEN { IF RECORD LENGTH IS ODD THEN: 

BIT 06ITOO, CKDCNT 
BNE 50336$ 
{LAST BYTE WILL BE IN 
j THE UPPER BYTE. 



IF R2 EQ CKDCNT THEN 



IFB SWBFLG NE 00 THEN 



TSTB 



TSTB 
ENOIF 



(R3)* 
(R4)* 



ENDIF 



ENOIF 

CMPB CR3) t (R4) 
BEQ 3$ 
TST CKDFF 
BNE 2$ 

INC VFYCNTCR5) 

INC HRDCNTCR5) 

ERRHRD 17.WTVERM.DTAERM 



50336$ 
50335$ 



{ARE 



ll 



LET CKDFF :■ CKDFF ♦ #1 

MOVB CR4),TIME1 

BIC 0177400.TIME1 

MOVB CR3),TIME2 

BIC #177400, TIME2 

IF CKDFF LT #11. THEN 



PRINTX 



C$ERHRD 
17 

WTVERM 
DTAERM 



ENDIF 



50334$ 
THEY EQUAL. 
iBR IF SO. 
ST TIME THRU? 

iBR IF NOT. 

I INC THC VERIFY ERROR COUNTER, 
j INC THE HARD ERROR COUNT. 
I REPORT WRITE/VERIFY ERROR. 

TRAP 
.WORD 
.WORD 
.WORD 
{INCREMENT # OF BYTES IN ERROR. 

INC CKDFF 

I SAVE WAS DATA FOR TYPOUT. 

i CLEAR GARBAGE. 
»SAVE SHOULD BE DATA FOR TYPOUT. 

{CLEAR GARBAGE. 
I IF ERROR BYTE COUNT IS LESS THAN 11 

CMP CKDFF ,*U % 

BGE 50337$ 

0DTAER2,R2,<B.TIME1>,<B.TIME2> {PRINT EXP ♦ ACT 

CLR 
BISB 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



DATA. 
-CSP) 
TIME2.CSP) 

CSP) 
TIMEl.CSP) 
R2. -CSP) 
*0TAER2,-(SP) 
♦4 , C SP ) 
SP.RO 
C$PNTX 
#12, SP 



3$: 



TSTB CR3)* 
TSTB CR4)* 



50337$: 
{UPDATE WRITE BUFFER ADDRESS 
{UPDATE READ BUFFER ADDRESS. 
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SEQ 0121 



4263 
4264 



4265 
4266 

4267 



4268 

4269 

4270 

4271 
4272 
4273 
4274 



017220 
017222 
017222 
017226 
017230 
017230 
017234 
017234 
017240 
017242 
017242 
017246 
017252 
017256 
017262 
017264 
017266 
017272 
017272 
017272 
017272 
017272 
017272 
017272 

017274 
017276 



105722 

020237 
003702 

005237 

005737 

001414 

013746 
013746 
012746 
012746 
010600 
104414 
062706 



000207 

000000 
000000 



017274 

017274 

017276 



017274 
017276 
005030 
000003 



000010 



TSTB CR2)* 
UNTIL R2 GT CKDCNT 



lUPDATE BYTE 
j END OF DATA COMPARE 

CMP 
BLE 
LET CKDCNT :- CKDCNT t 01 j CKDCNT EQUALS RECORD 

INC 
I IF COMPARE ERROR HAS 

TST 
BEQ 
j PRINT OF 



IF CKDFF NE 00 THEN 



PRINTB 0DTAER3, CKDFF, CKDCNT 



ENDIF 



COUNTER. 
REPEAT LOOP. 

R2, CKDCNT 

50333$ 
LENGTH. 

CKDCNT 
OCCURED THEN: 

CKDFF 

50340$ 
BYTES IN 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



ERROR. 
CKDCNT, -CSP) 
CKDFF, -CSP) 
0DTAER3, -CSP) 
03, -CSP) 
SP,RO 
CIPNTB 
010, SP 



ENDIF 

ENDIF 

RTS 

CKDCNT: .WORD 
CKDFF: .WORD 



PC 






I OTHERWISE, 



503401 

50331$ 

50327$ 
RETURN. 



|0 OF BYTES TO BE VERIFIED -1 
{0 OF BYTES IN ERROR COUNTER, 
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4276 
4277 
4278 
4279 
4280 
4281 
4282 
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SEQ 0122 



4283 
4284 

4285 
4286 



4287 

4288 

4289 

4290 

4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 

4304 
4305 

4306 

4307 

4308 

4309 
4310 
4311 
4312 



017300 
017300 
017304 
017304 
017306 
017306 
017306 
017314 
017316 
017316 
017322 
017322 
017324 
017324 
017324 
017332 
017334 
017334 
017336 
017336 
017336 
017336 
017344 



017346 
017346 
017352 
017356 
017356 
017356 
017356 
017362 
017362 
017370 
017372 
017372 
017400 



105037 
005005 

026527 
001003 

062705 

000771 



026527 

001001 

104444 



016537 
000207 



105037 
042705 



062705 

026527 
001772 

016537 
000207 



003527 

002536 177774 
000002 

002536 177777 



002536 002074 



003527 
177770 



0OO002 

002536 177774 

002536 002074 



SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE, 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



$0 



FIRSTU:sLET DROPED :8 
LET R5 :« #0 
WHILE DEVTBLCR5) EQ WINUSE DO 



NEXTU, 



LET R5 
ENDDO 



- R5 ♦ $2 



IF DEVTBLCR5) EQ #END THEN 

DOCLN 
END IF 
LET L$LUN 
RTS PC 



DEVTBLCR5) 



,CLR UNIT DROPPED FLAG 

CLRB DROPED 
iCLR DEVICE POINTER. 

CLR R5 
j WHILE DEVICES ARE NOT IN USE: 

50341$: 

CMP DEVTBLCR5)»*NINUSE 

BNE 50342$ 
» POINT TO NEXT DEVICE. 

ADD 02, R5 

BR 50341$ 

50342$: 
j IF ALL UNITS HAVE BEEN DROPPED THEN: 

CMP DEVTBLCR5),0END 
BNE 50343$ 
{DO CLEAN CODE AND TERMINATE PASS. 

TRAP C$DCLN 

50343$: 

j SET UNIT * IN "HEADER" FOR ERROR REPORT 

MOV DEVTBL(R5),L*LUN 
;RETURN WITH 1ST DEVICE IN R5. 



SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET DROPED :B» *0 

BIC 0177770.R5 
REPEAT 

LET R5 :« R5 ♦ *2 

UNTIL DEVTBLCR5) NE ONINUSE 



j CLR UNIT DROPPED FLAG 

CLRB 



DROPED 



LET L$LUN 
RTS PC 



DEVTBLCR5) 



{REPEAT UNTIL THE NEXT DEVICE IS FOUND. 

50344$: 
{UPDATE DEVICE TABLE POINTER. 

ADD *2,R5 

CMP DEVTBLCR5),*NINUSE 

BEQ 50344$ 
l SET UNIT tf IN "HEADER" FOR ERROR REPORT 

MOV DEVTBL(R5),L$LUN 
{RETURN. 
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SEQ 0123 



4314 






4315 






4316 






4317 






4318 






4319 






4320 017402 






017402 


010537 


003460 


4321 017406 






017406 


005265 


003320 


4322 017412 






017412 


013704 


002354 


017416 


042704 


000377 


4323 017422 






017422 


016503 


002506 


4324 017426 






017426 


005002 




4325 017430 






017430 






017430 


020227 


000016 


017434 


001405 




4326 017436 






017436 


012723 


177777 


4327 017442 






017442 


062702 


000002 


4328 017446 






017446 


00O770 




017450 






4329 017450 






017450 


012775 


002324 002456 


4330 017456 


004737 


011672 


4331 017462 


004737 


011726 


4332 017466 






017466 


020427 


157400 


017472 


001005 




4333 017474 






017474 


104455 




017476 


000020 




017500 


004566 




017502 


005626 




4334 017504 






017504 


000402 




017506 






4335 017506 


004737 


017624 


4336 017512 






017512 






4337 017512 






017512 


105737 


003471 


017516 


001404 




4338 017520 






017520 


105237 


003527 


4339 017524 


004737 


015436 


4340 017530 






017530 






4341 017530 






017550 


104424 




4342 017532 







1 



\ 



DROPU: 



SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS : 

REGISTERS! 

CALLS: MOVMSG, PRXST, LOG 



LET R5SAVE :« R5 
LET FTLCNTCR5) : 



FTLCNTCR5) ♦ 01 



MOV R5,R5SAVF 
j INCREMENT THE FATAL ERROR COUNT. 

INC FTLCNTCR5) 
LET R4 :« MSGPKT *MS . XS3 CLR.BY 0377 {GET UOIAG ERROR CODE FROM XSTAT3, 

MOV MSGPKT *MS.XS3,R4 

BIC 0377, R4 
lAUR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKA(R5),R3 
jCLR COUNTER. 

CLR R2 
jWHILE THERE ARE MORE LOCATIONS: 

50345$: 

CMP R2,0MSGCNT 

BEQ 50346$ 
jINIT THE MSG PACKET WITH ALL l'S 

MOV 0-1, (R3)* 
I UPDATE COUNTER. 

ADD 02, R2 



LET R3 


t " 


MSGPKACR5) 




LET R2 


. » 


00 




WHILE 


R2 


NE 


OMSGCNT 


DO 


LET 


CR3)* 


:• $-1 




LET 


R2 


■ ■ 


R2 ♦ #2 




ENDDO 











LET STSDBCR5) •» OGSCPK 

JSR PC, USSR 

JSR PC, MOVMSG 

IF R4 EG 0X3, RNY THEN 



ERRDF 16,RNYM,STAERM 



ELSE 



JSR PC, PRXST 
ENOIF 

IFB RECLOG NE 00 THEN 



LET DROPED 5 B- DROPED ♦ 01 

JSR PC, LOG 
ENOIF 

DORPT 

OROPUAi IF PASCNTCR5) NE 00 THEN 



BR 50345$ 
50346$: 
{INITIATE A GET STATUS COMMAND. 

MOV OGSCPK. 8JTSDBCR5) 
{WATT A WHILE FOR SSR-1 
{MOVE MSG PACKET TO COMMON AREA, 
llF WE HAVE A CAPSTAN RUNAWAY THEN: 

CMP R4.0X3.RNY 
8NE 50347$ 
{REPORT CAPSTAN RUNAWAY WITH TACH CNT. 

TRAP C$ERDF 
.WORD 16 
.WORD RNYM 
.WORD STAERM 
j ELSE -IF NOT A RUNNAWAY: 

BR 50350$ 
50347$: 
{PRINT EXTENOED STATUS REGISTERS. 

50350$: 

{IF THE RECORD HAS BEEN LOGGED THEN: 

TSTB RECLOG 

BEQ 50351$ 
I SET UNIT DROPPED FLAG. 

INCB DROPED 

jLOG DATA BYTES ♦ RD/WR ERRORS. 

50351$: 
{PRINT PERFORMANCE REPORT 

TRAP C$DRPT 
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4343 
4344 
4345 
4346 

4347 
4348 

4349 

4350 
4351 
4352 
4353 

4354 

4355 

4356 

4357 

4353 
4359 
4360 



017532 
017536 
017540 
017540 
017544 
017544 
017544 
017544 
017552 
017552 
017554 
017556 
017556 
017560 
017560 
017566 
017570 
017570 
017574 
017576 
017600 
017602 
017604 
017604 
017610 
017610 
017610 
017610 
017610 
017610 
017614 
017614 
017620 



005765 003260 
001402 

005365 003260 



016537 002536 017622 

010500 
006200 

104451 

026527 002536 177774 
001410 

105737 002210 

001005 

000240 

000240 

000240 

105237 003534 



SEQ 0124 



105237 003527 

013705 003460 
000207 



LET PASCNTCR5) :- PASCNTCR5) - #1 
END IF 

LET DROPN :- DEVTBLCR5) 
LET RO :■ R5 SHIFT -3. 



TST PASCNTCR5) 
BEQ 50352* 

DEC PASCNTCR5) 



DOOU RO 

IF DEVTBLCR5) NE *NINUSE THEN 

IFB IREC EQ 00 THEN 



NOP 
NOP 
NOP 



50352$ j 
I SAVE OF UNIT TO BE DROPPED. 

MOV 0EVTBLCR5), DROPN 
jRO»LOGICAL DEVICE NUMBER 

MOV R5.R0 
ASP RO 
j DROP THE UNIT: EXEC BGNOU-ENDDU COOE IF IDU - 

TRAP CJDODU 
{IF UNIT NOT DROPPED 

CMP DEVTBLCR5) t *NINUSE 
BEQ 50353$ 
j IF RECOVERY IS ENABLED THEN: 
TSTB IREC 
BNE 50354$ 



017622 000000 



LET STAFLG :B» STAFLG f $1 
ENDIF 
ENOIF 
DRORTN: LET DROPED :B* DROPED ♦ *1 
LET R5 :■ R5SAVE 
RTS PC 
DROPN: .WORD 



j SET START FLAG TO ENABLE REWIND, 
INCB STAFLG 

50354$: 

50353$: 

j SET UNIT DROPPED FLAG. 

INCB DROPED 

MOV R5SAVE.R5 
I RE TURN. 

;P OF UNIT TO BE DROPPED 
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SEQ 0125 



4562 
4363 
4364 
4365 
4366 
4367 
4368 



4569 



4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 



4382 

4383 

4384 

4385 

4386 
4387 

4388 

4389 

4590 



017624 
017624 
017630 
017634 
017636 
017640 
017644 
017644 
017650 
017654 
017660 
017664 
017670 
017674 
017676 
017700 
017704 



017706 
017706 
017712 
017714 
017714 
017720 
017/22 
017722 
017724 
017724 
017726 
017726 
017732 
017736 
017736 
017742 
017742 
017746 
017746 
017752 
017752 
017754 
017756 
017760 



012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 
000207 



105737 
001430 

105737 
001023 

104450 

103023 

013704 
004737 

112337 

112337 

111337 

104443 
000404 
003444 
000130 



J 



SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



005241 

000001 



000004 

002354 
002352 
002350 
002346 
0O6453 
000005 



000014 



PRXST: : PRINTX OGETSTM 



002206 
003537 



003426 
007654 

004124 

004125 

004126 



PRINTX 0STAER5,MSGPKT*MS.XSO,MSGPKT»MS.XSl,MSGPKTfMS.XS2,MSGPKT*MS.XS3 



J 



RTS PC 



SUBROUTINE TO HALT AFTER EACH COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 



MOV 


*GETSTM,~(SP) 




MOV 


#1.-(SP) 




MOV 


SP.RO 




TRAP 


CiPNTX 




ADD 


04.SP 




2,MSGPKT*MS.XS3 




MOV 


MSGPKT*MS.XS3, 


-CSP) 


MOV 


MSGPKT*MS.XS2, 


-CSP) 


MOV 


MSGPKT*MS.X5l. 


-CSP) 


MOV 


MSGPKT*MS.XSO. 


-CSP) 


MOV 


*STAER5,-(SP) 




MOV 


*5 v ~csp) 




MOV 


SP,RO 




TRAP 


CIPNTX 




ADD 


$14, SP 





CKHAE:: IFB HAE NE *0 THEN 

IFB MISCFG EQ 00 THEN 

MANUAL 

HNCOMPLETE CKHRTN 

LET R4 :■ CMDWRD 

JSR PC.GCMOA 

LET HALTM :B» CR3)> 

LET HALTM>1 jB- CR3)» 

LET HALTM*2 :B- CR3) 

GMANIL HALTM # TIME1,1,YES 



5 IF HALT FLAG IS SET: 




TSTB 


HAE 


BEQ 


50355$ 


TSTB 


MISCFG 


BNE 


50356$ 


j IS MANUAL INTERVENTION 


ALLOWED? 




TRAP CJMANI 


j BR IF NOT. 






BCC CKHRTN 


i COMMAND WORD. 




MOV 


CM0WRD.R4 


iFETCH ADR OF CMO ASCII 


. 


j MOVE CMD ASCII 




MOVB 


CR3)*. HALTM 



MOVB CR3)»,H'\LTM*1 
{INTO MESSAGE. 

MOVB CR3).HALTM»2 
lHALT - WAIT FOR AN OEPRATOR INPUT. 

TRAP C$GMAN 
BR 10000$ 
.WORD TIME1 
.WORD TSCODE 
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4391 



4392 
4393 

4394 
4395 



017762 
017764 
017766 
017766 
017766 
017770 
017770 
017770 
017774 
017774 
017774 
017774 
017774 



004124 
000001 



000402 



105037 003537 



000207 



10000$: 



ELSE 



LET MISCFG :B = *0 
ENDIF 
ENDIF 
CKHRTN: RTS PC 



{RETURN 



BR 50357$ 
50356$? 

CLRB MISCFG 

50357*: 

50355$: 



SEQ 0126 



.WORD HALTM 
.WORD 1 



K10 



GLOBAL AREAS MACRO M1200 21 -MAR -84 
RAMER - READ AND DISPLAY SELECTED RAM 



4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
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4405 

4406 

4407 

4408 
4409 

4410 

4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 



017776 
017776 
017776 
020002 
020002 
020006 
020006 
020012 
020012 
020016 
020020 
020020 
020024 
020024 
020030 
020034 
020040 
020044 
020050 



020052 



012701 

012721 

012721 

012721 
005721 



003542 
100011 
000001 
000001 



012721 177777 



012701 
004737 
004737 
004737 
004737 
000207 



003542 
007706 
007600 
010654 
011274 



WRlTEM: 



SUBROUTINE TO CREATE THE SEQUENCE FOR A WRITE TAPE MARK 

COMMAND. WILL EXECUTE COMMAND TO UUT . 

INPUTS j 

OUTPUTS; CMDSEQ 

CALLS t SETUP, CMDAC, EXCUTE, GOWAIT 



LET Rl :- 

LET CRD* 

LET CRD* 

LET (Rl)* 

TST CR1)» 
LET CRD* 

LET Rl ;- 



4CMDSEQ 

tfWTM 

ox 
01 

:- 4END 
OCMDSEQ 



JSR PC, SETUP 

JSR PC, CMOAC 

JSR PC, EXCUTE 

JSR PC, GOWAIT 
RTS PC 
.EVEN 

ENDMOD 



i COMMAND 

;BRF 

j ITERATIONS 

{PATTERN 
j TERMINATOR 

jTOP OF BUFFER 



j SET UP THE TABLE 

j LOAD THE ASCII 

{ISSUE THE WTM COMMAND 

sWAIT FOR THE COMMAND TO FINISH 

i RETURN TO CALLER 



MOV 


OCMDSEQ, Rl 


MOV 


*WTM,CRD* 


MOV 


*1,CR1)+ 


MOV 


*1,(R1)+ 


MOV 


*END,(R1)* 


MOV 


*CMDSEQ,R1 



SEQ 0127 
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SEQ 0128 



4430 
4431 
4432 
4441 
4442 
4443 
4444 
4445 
4446 
444? 
4446 
4449 

4450 
4456 

4457 
4456 



4459 



4460 



4461 



4462 



020052 



020052 
020052 

020052 
020052 
020056 
020062 
020062 
020062 
020070 
020072 
020072 
020076 
020102 
020106 
020112 
020116 
020120 
020122 
020126 
020126 
020132 
020136 
020142 
020146 
020152 
020156 
020160 
020162 
020166 
020166 
020172 
020176 
020202 
020206 
020212 
020216 
020220 
020222 
020226 
020226 
020232 
020236 
020242 
02C246 
020252 



010537 
004737 



026527 
001562 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
016546 
012746 
0X2746 



TITLE MISCELLANEOUS SECTIONS 
SBTTL REPORT CODING SECTION 

BGNMOD 



t ♦ 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS, 



L$RPT I: 



BGNRPT 



003460 
017300 



002536 177777 



003330 
003260 
002536 
020714 
000004 



000012 

002560 
002570 
002600 
002610 
020771 
000005 



000014 

002620 
002630 
002640 
002650 
021042 
000005 



000014 

002660 
002670 
002700 
002710 
021113 
000005 



LET 

JSR 
WHILE 



R5SAVE 



R5 



PC.FIRSTU 
DEVTBLCR5) NE 



OEND DO 



PRINTS 



{SAVE CURRENT DEVICE POINTER. 

MOV R5.R5SAVE 
jFIND THE FIRST UNIT. 
5 WHILE THERE ARE MORE DEVICES: 

50360$: 

CMP 

BFQ 
0RPT1A # DEVTBL(R5),PASCNT(R5).RECCNT(R5) 



DEVTBLCR5),*END 
50361$ 



PRINTS 



MOV RECCNTCR5), 

MOV PASCNTCR5), 

MOV DEVTBLCR5), 

MOV *ftPTlA,-(SP 

MOV 04. -CSP) 

MOV SP,R0 

TRAP CIPNTS 

ADD $12. SP 



-CSP) 
-CSP) 
-CSP) 

) 



0RPTlB,WRBC*3OCR5),WRBCf2O(R5) ( WRBC*lO(R5),WRBCCR5) 



PRINTS 



MOV WRBCCR5).-C 

MOV URBC*10(R5) 

MOV WRBC*20CR5) 

MOV WRRC*30(R5) 

MOV «RPTLB.-CSP 

MOV 05.-C3P) 

MOV SP.RO 

TRAP C*PNTS 

ADD 014, SP 



SP) 

.-CSP) 

.-CSP) 

.-(SP) 

) 



0RPT1C,RRBC*30CR5).RRBC*20CR5).RRBC*10CR5).RRBCCR5) 



PRINTS 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
#RPTlD l RFBC+30CR5),RFBC*aO(RS).RFBC*XO(R5),RFBC(R5) 

MOV RFBCCR 

MOV RFBO10CR5) 

MOV RFBC»20CR5) 

MOV RFBC+30CR5) 

MOV «RPUD.-(SP 

MOV 05, -CSP) 



RRBC(R5),-C 
RRBC*10CR5) 
RRBC*20CR5) 
RRBC*30CR5) 

♦RPT1C.-CSP 
05, -(SP) 
SP.RO 
C$PN7S 
014, SP 



).-c 



SP ) 

.-CSP) 
,-fSP) 
•-(SP) 

) 



SP) 

,-C f ,P) 
.-CSP) 
.-CSP) 

) 
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4463 



4464 



4465 



4466 
4467 

4468 



4469 
4470 



4471 
447c? 



44 /A 
44 74 

44 75 
44 76 
44 7 7 
44 /B 
4479 



020256 
020260 
020262 
020266 
020266 
020272 
020276 
020302 
020306 
020312 
020314 
020316 
020322 
020322 
020326 
020332 
020336 
020342 
020346 
020350 
020352 
020356 
020356 
020362 
020364 
020370 
020370 
020370 
020370 
020374 
020400 
020404 
020410 
020414 
020420 
020422 
020424 
020430 
0204 34 
020434 
020436 
020436 
020436 
020442 
020442 
020444 



020446 
020446 
020452 
0,^456 
020462 



010600 
104416 
062706 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 

105737 
001402 
004737 



016546 
016546 
016546 
016546 
012746 
012746 
010600 
104416 
062706 
0047 J 7 

000612 
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000014 

002760 
002740 
002720 
021217 
000004 



000012 

002770 
002750 
002730 
021270 
000004 



000012 
002211 
020446 



003300 
003320 
003310 
003270 
021460 
000005 



000014 
017346 



013705 003460 

000167 
001206 



016546 

012746 
012/46 
010600 



003250 
021341 

000002 



SEQ 0129 



PRINTS 



#RPT IF , WRRECC R5 ) , RRRECC R5 > . RFRECC R5 ) 



PRINTS 



#RPT1G,WRUNR(R5) # RRUNR(R5),RFUNR(R5) 



IFB BADTSW NE #0 THEN 



JSR 
ENDIF 

PRINTS 



PC.BTRPT 



;G0 PRINT BAD TAPE 



TSTC 
BEQ 
SPOTS WHfcN 



MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BADTSW 

50362* 

ENABLED 



SP.RO 

cipnts 

#14, SP 

RFRECCR5) 
RRRECCR5) 
WRRECC R5) 
#RPT1F,-C 
#4,-CSP) 
SP,RO 
CiPNTS 
#12, SP 

RFUNRCR5) 

RRUNRCR5) 

WRUNRCR5) 

#RPT1G.-C 

#4,-(SP) 

SP.RO 

CSPNTS 

#12, SP 



,-(SP) 
,-CSP) 
,-(SP) 
SP) 



,-CSP) 
,-CSP) 
, (SP) 
SP) 



50362*; 
#RPT1I,SCCNTCR5),HRDCNTCR5) I FTLCNTCR5),VFYCNTCR5) 



JSR 
ENDDO 



PC.NEXTU 



j FIND THE NEXT UNIT 



LET R5 :• R5SAVE 



l RESTORE 



EXIT 



RPT 



BR 

50361* : 
CURRENT DEVICE 
MOV 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



50360* 



VFYCNTCR5 

FTLCNTCR5 

HRDCNTCR5 

SCCNTCR5) 

0RPT1I.-C 

#5,-CSP) 

5P.R0 

C$PNTS 

#14, SP 



),-CSP) 

).-(SP) 

),CSP) 

,-CSP) 

SP) 



POINTER. 
R5SAVE,R5 



.WORD 
♦ WORD 



JKJMP 
L10010-2- 



SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 

BAD TAPE SPOTS; COUNT PER TAPE PASS ONLY. NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 



UTRPT: PRINTS #RPTlE,WRTYCTCR5) 



PRINT GLOBAL WRITE 



RETRY COUNT 
MOV 

MOV 
MOV 
MQV 



URTYCTCR5VCSP) 
#RPTlb",-(SP) 
#2, CSP) 
SP.RO 



NIC 
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020464 


104416 






020466 


062706 


000006 


4480 


020472 








020472 


016537 


002550 003516 


4481 


020500 








020500 


017703 


163012 




020504 


006203 




4482 


020506 








020506 


010346 






020510 


012746 


021371 




020514 


012^6 


000002 




020520 


010600 






020522 


104416 






020524 


062706 


000006 


4483 


020530 








020530 


005703 






020532 


001457 




4484 


020534 








020534 


020327 


000024 




020540 


101402 




4*3*3 


020542 








020542 


012703 


000024 


448S 


020546 
020546 






4487 


020546 








020546 


012746 


005300 




020552 


012746 


000001 




020556 


010600 






020560 


104U6 






020562 


062706 


000004 


4488 


020566 








020566 


013704 


003516 




020572 


062704 


000002 


4489 


020576 








020576 


005002 




4490 


020600 
020600 






4491 


020600 








020600 


011446 






02060,'-' 


012746 


0^1451 




020606 


012746 


000002 




0201 1? 


010600 






020 14 


104416 






020. 16 


062706 


000006 


4492 


020622 








020622 


005202 




4493 


020624 








020624 


062704 


000002 


4494 


020630 








020630 


020227 


000012 




020634 


001014 




4495 


020636 








020636 


012746 


005300 




020642 


012746 


0OO001 




020646 


010600 






020650 


104416 






020652 


062706 


000004 
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SEQ 0130 



LET BTPT t- BTADDRCR5) 



TRAP CJPNTS 
ADD #6,SP 
j BTPT IS BOTH THE BAD TAPE SPOT COUNTER 

MOV BTADDRCR5),BVPT 
LET R3 :- Q6TPT SHIFT -1 tAND THE LOGGING INDEX 

MOV 
ASR 
PRINTS 0RPT1J.R3 {PRINT ft OF BAD TAPE SPOTS 



SBTPT 


,R3 


R3 




MOV 


R3, (SP) 


MOV 


#RPT1J # -(SP) 


MOV 


#2.-(SP) 


MOV 


SP.RO 


TRAP 


CJPNTS 


ADD 


ft6.SP 



IF R3 NE 00 


THEN 


IF R3 HI 


ft20, THEN 


LET R3 


:* #20. 


ENDIF 




PRINTS 


ftCRLFSP 



{PRINT RECORD ft IF BAD SPOTS DETECTED 

TST R3 



BEQ 



i0363$ 



LET R4 :* BTPT ♦ 02 {FETCH A BAD SPOT ID 



LET R2 : ; 
REPEAT 
PRINTS 



ftO 



CMP R3.&20. 
BLOS 50364$ 
{ 20 BAD SPOTS IS THE LIMIT 

MOV ft20,,R3 

50364$: 



MOV 

MOV 

MOV 

TRAP 

ADD 

BTPT.R4 
*2,R4 
10 MAX 
R2 



tfCRLFSP.-(SP) 
ftl.-CSP) 

SP.RO 

CSPNTS 

ft4 ( SP 



MOV 
ADD 
{R2 - PRINT COUNT PER LINO 

CLR 



ftRPTlK,(R4) 



50365$ 
{PRINT A BAD SPOT ID 



LET R2 :« R2 ♦ ftl 


{COUNT 


PRINTS 


LET R4 ♦« R4 * 02 


{NEXT 




IF R2 EQ ftlO. THEN 


j 




PRINTS ftCRLFSP 




iGO T 



INC 

ADD 

CMP 
BNE 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

R2 

ft2,R4 

R2.01O 

50366$ 



CR4), -(SP) 
#RPUK,-(SP) 

ft2 . - ( SP ) 

SP.RO 
C*PNTS 
ft6 , SP 



iGO TO NEXT PRINT LINE PAST 10 PRINTS 

MOV ftCRLFSP, -(SP) 

MOV ftl.-CSP) 

MOV SP.RO 

TRAP CJPNTS 

ADD ft4,SP 



MISCELLANEOUS SECTIONS 
REPORT COOING SECTION 



44% 
4497 
449ft 
4499 

4500 
4501 



450? 
4503 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 



4532 
4533 
4534 
4535 
4536 
4537 

4538 
4539 

4540 
4541 



020656 
020656 
020662 
020662 
020666 
020666 
020666 
020666 
020670 
020672 
020672 
020672 
020672 
020676 
020702 
020704 
020706 
020712 



020714 
020771 
021042 
021113 
021163 
021217 
021270 
021341 
021371 
021451 
021460 
021534 
021571 



021654 
021654 
021654 



021656 
021656 
021656 
021660 
021662 
021664 



162703 
162702 



020203 
001343 



012746 
012746 
010600 
104416 
062706 
000207 



045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 
045 



104425 
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000012 
000012 



Bll 



005275 
000001 



000004 



116 
101 
101 
101 
123 
101 
101 
101 
116 
104 
101 
123 
116 



045 
102 
102 
102 
062 
122 
125 
127 
045 
065 
123 
063 
045 



oooooo 

177777 
177777 













SEQ 0131 


LET R3 j- R3 


- 010. 


I ADJUST 


BAD SPOT COUNT 
SUB 


010. ,R3 




LET R2 :■ R2 


- 010. 


l ADJUST 


PRINT COUNT 
SL8 


010, ,R2 




endif 




1 


50366$ i 






UNTIL R2 EG) R3 




iLIMITj 


OF BAD SPOTS 
CMP 
BNE 


R2.R3 
50365$ 




ENOIF 


I 




50363$! 






PRINTS OCRLF 


1 






MOV 

MOV 

MOV 

TRAP 

ADD 


OCRLF. (SP) 
01, -CSP) 
SP.RO 

C$PNTS 
04,SP 



RPT1A 
RPT1B 
RPT1C 
RPT1D 

RPT1F: 
RPT1G; 
RPTlEj 
RPTUt 

RPT1K: 
RPT1I; 



TAPCAPj 



LlOOlOt 



RTS PC 

.NLIST 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.LIST 

.EVEN 

ENORPT 



BEX 

/*N*N#AUNIT *01*S3*APASS?*05*S3*AREC0RD:#05*N/ 

/*ABYTES WRITTEN #D3*A,*Z3*A,*Z3#A .*Z3*N/ 

/*A8TTES READ REV *03*A,*Z3#A,*Z3*A # *Z3*N/ 

/*A6YTES READ FWO *03*A,#Z3#A,*Z3*A.*Z3#N/ 

/«S23tfAURT*S4tfAR0ft*S4*ARDf*N/ 

/*AREC0VERA8LE ERRORS *03*S2*05iiS2*05#N/ 

/*AUNR€C0VERA8LE ERRORS #O5#S2*O5*S2*05#N/ 

/rfAWRITE R€TRIES*S8*05#N/ 

/*N*02*A BAD SPOTS THIS PASS PRECEDING RECORD Oj/ 

/*05#S1/ 

"*ASPEC CONWS3*AHARO*S3*AFATAL*S3*ACOMPARE*N" 
/*S3#O5*S3#O5*S3#05*S3#05#N#N> 

/#N*ATAPE IN CARTRIDGE MUST BE 600* IN LENGTH. *N*N/ 
BEX 



TRAP 



C$RPT 



jLOAD DEVICE PROTECTION TABLE 

I TABLE FOR SUPERVISOR TO IDENTIFY THE P TBL FOR THE LOAD OEV 

I THE SUPERVISOR USES TH£ TQL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD UEV 



LIPRQTu 



BGNPROT 

.WORD 

.WORD 

.UORO 

ENOPROT 







|P TBI 


OFFSET 


Of 


TSSR, THE TK25 CSR 


jP-TBL 


OFFSET 


OF 


MASS BUS UNIT #j 1 


|P*TBl 


QTF'SET 


OF 


DRIVE Ql -1 * NQNt, 



- NOT A MASS BUS Dt\. 
ONE DRIVE PtR UNIBUS 



AD 
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INIYIAl I/E SECTION 



C1I 



5EQ 0132 



4543 
4544 

45-45 
4546 
454/ 
4548 
4549 
4550 

4551 
4561 



4562 



4563 



4564 

4565 

4566 

4567 



4568 
4569 

4570 



4571 
4572 
4573 

4574 

4575 
4576 

4577 

4578 



021664 
021664 

021664 
021664 

v^21672 
021674 
021674 
021676 
021700 
021702 
021704 
021704 
021710 
021712 
021716 
021720 
021724 
021726 
021732 
021734 
021736 
021736 

021736 
021736 
021742 
021744 
021750 
021750 
021752 
021752 
021752 
021756 
021760 
021760 
021764 
021764 
021770 
C-1770 
021772 
021772 
021772 

021772 

021772 
021776 
022000 
022000 
022006 



032727 
001421 

104454 
000001 
004164 
000000 

012727 
000000 
013727 

oooooo 

005367 
001375 
005367 

001367 
000753 



105737 
001413 
105037 

005002 



020227 
001405 

005062 

062702 
000770 



105737 
001406 



.SBTTL INITIALIZE SECTION 



i ♦ ♦ 



l THE INITIALIZE SECTION C0NTA T NS THE CODING THAT IS PERFORMED 
i AT THE BEGINNING OF EACH PASb. 
1 - ■ 



000003 002314 



000024 
002116 
177772 
177756 



002204 
002204 

000550 

002560 
000002 



002205 



BGNINIT 
LIINIT:: 

INITIO: IF OBITO'BITl SETIN OCMDPKT THEN 
ERRSF iiCMOPKM 



DELAY 20, 



I IF CMO PACKET IS NOT ON MOOULO 4 60UNORY? 
BIT *6IT0!BIT1,*CM0PKT 
BEQ 50367$ 
i PRINT ERROR M5G, 

TRAP CIFRSF 
.WORD 1 
.WORD CMDPKM 
.WORD 
|G0 TO SUPERVISOR, WAIT 2 SECONOS. 



BR 
ENOIF 



INITIO 



IFB CLRFLG NE *0 THEN 



CLRB CLRFLG 
LET R2 j- 90 

WHILE R2 NE GCNTLEN DO 



»INIT CLR FLAG. 



MOV 


420. .(PC)* 


.WORD 





MOV 


L$DLY,(PC)» 


.WORD 





DEC 


-6(PC) 


BNE 


.4 


DEC 


-22CPC) 


BNE 


.-20 


50367$: 




i FLAG SET: 




TST8 CLRFLG 




BEQ 50370* 





CLR 



R2 





50371$: 




CMP R2,#CNTLEN 




BEQ 503 72$ 


LET WRBCCR2) :- 00 


iCLR ALL STATISTICAL COUNTERS. 




CLR WRBCCR2) 


LET R2 :- R2 ♦ 02 






ADD 02.R2 


ENODO 






BR 50371$ 




50372$: 


ENDIF 






50370$: 


IFB RRANV NE 00 THEN 


1 IF RESET RANOOM VARIABLE FLAG IS 



012737 153624 003440 



LET RANB :- *RANBC 
LET RANS I* GRANSC 



TSTB RRANV 
BEQ 50373$ 

jRESET RANOOM BASE *. 

MOV *RANBC»RANB 

iRESET RANOOM SAVE LOCATION, 



MISCELLANEOUS SECTIONS 
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022006 


012737 


032561 003442 


4579 022014 






022014 






4580 022014 






022014 


012700 


000040 


022020 


10*447 




4581 022022 






022022 


103030 




4582 022024 






022024 


105237 


003534 


4583 022030 






022030 


105037 


003340 


4584 022034 






022034 


012705 


000006 


4585 022040 






022040 






4586 022040 






022040 


012765 


177774 002536 


4587 022046 






022046 


162705 


000002 


4588 022052 






022052 


005705 




022054 


001371 




4589 022056 






022056 


013705 


002012 


022062 


006305 




4590 022064 






022064 






4591 022064 






022064 


162705 


000002 


4592 022070 






022070 


010565 


002536 


022074 


006265 


002536 


4593 022100 






022100 


005705 




022102 


001370 




4594 






4595 022104 






022104 


012700 


000034 


022110 


104447 




4596 022112 






022112 


103004 




4597 022114 






022114 


105237 


003534 


4598 022120 






022120 


105237 


003535 


4599 






4600 022124 






022124 


104421 




022126 


010037 


003540 


4601 022132 






022132 


005003 




4602 022134 






022134 


105737 


003535 


022140 


001020 




4603 022142 






022142 


012700 


000035 
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ENDIF 

READEF *EF. START 



Dll 



BNCOMPLETE INIT15 
LET STAFLG :B« STAFLG ♦ 01 
LET HERE :8- 00 
LET R5 j- 06 
REPEAT 

LET DEVTBLCR5) t- ONINUSE 

LET R5 :- R5 - 02 
UNTIL R5 EQ 00 

LET R5 j- L$UNIT SHIFT 1 

REPEAT 

LET R5 :- R5 - 02 

LET DEVTBLCR5) :• R5 SHIFT 

UNTIL R5 EQ *0 



-1 



INIT15: READEF *EF, PWR 



BNCOMPLETE INI T 16 

LET STAFLG ;B« STAFLG ♦ 01 
LET PWRFLG :B« PWRFLG ♦ 01 



INIT16: RFLAGS OPFLAG 



LET R3 !• #0 

IFB PWRFLG EQ 00 THEN 

READEF OEF.NEW 



SEQ 0133 



MOV 



0RANSC.RAN5 



50373$; 
jREAD START COMMAND EVENT FLAG. 

MOV OEF . START, RO 
TRAP C$REFG 
iBRANCH if NOT STARTING. 

BCC INIT15 
} SET START COMMAND FLAG. 

INCB STAFLG 
iRESET THE TEST 3 ASCII SEMAPHORE 

CLRB HERE 

MOV *6,R5 
I INITIATE UNIT NUMBER TABLE 

50374$: 
|BY STORING NOT IN USE IN EACH LOCATION. 





MOV 


ONINUSE 


.DEVTBLCR5) 




SUB 


02. R5 






TST 
BNE 


R5 

50374$ 




MOV 

ASL 
j STORE ALL UNIT 

50375$ 
j NUMBERS IN DEVTBL. 

SUB 


L$UNIT. 
R5 

#2.R5 


R5 




MOV 
ASR 


R5.0EVTBLCR5) 
DEVTBLCR5) 




TST 
BNE 


R5 

50375$ 




|HAS THERE BE A POWER FAILURE? 

MOV 0£F . PWR.RO 
TRAP C$REFG 
j BRANCH IF NOT, 

BCC INIT16 
l IF SO - SET THE START FLAG. 
INCB STAFLG 
l IF SO - SET THE POWER FAIL FLAG. 

INCB PWRFLG 



I READ AND STORE FLAGS SET BY OPERATOR 

TRAP CiRFLA 
MOV RO. OPFLAG 
I CLEAR EVENT FLAG 

CLR R3 
j IF POWER FAIL HAS NOT OCCURRED THEN* 

TSTB PWRFLG 
BNE 50376$ 
j UPDATE PASS COUNT WHEN 

MOV 0EF,NEW.RO 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



Ell 
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SEQ 0134 





022146 


104447 




4604 


022150 








022150 


103014 




4605 


022152 








022152 


105737 


003534 




022156 


001010 




4606 


022160 








022160 


012700 


000037 




022164 


104447 




4607 


022166 








022166 


103402 




4608 


022170 








022170 


005103 




4609 


022172 








022172 


000401 






022174 






4610 


022174 








022174 


005203 




4611 


022176 
022176 






4612 


022176 








022176 


000401 






022200 






4613 


022200 








022200 


005203 




4614 


022202 
022202 






4615 


022202 
022202 






4616 


022202 
022202 






4617 


022202 


004737 


017300 


4618 


022206 








022206 


005002 




4619 


022210 
022210 








022210 


026527 


002536 177777 




022216 


001450 




4620 


022220 








022220 


005202 




4621 


022222 








022222 


010500 






022224 


006200 




4622 


022226 








022226 


104442 




4623 


022230 








022230 


103036 




4624 


022232 








02223? 


011065 


002466 


4625 


022236 








022236 


012065 


002456 




022242 


162765 


000002 002456 


4626 


022250 








022250 


011065 


002476 


4627 


022254 








0222S4 


012746 


000340 




022260 


016546 


002516 



IFCOND CS THEN 

IFB STAFLG EQ 00 THEN 



TRAP 
1 SUPERVISOR IS IN NEW PASS 

BCC 50377$ 
I AND DIAG WAS NEITHER STARTED 



C$REFG 









TSTB STAFLG 










BNE 50400$ 






REAUEF OEF.RES 


>N0R 


MOV 
TRAP 


OEF.RES.RO 
C$REFG 




IFCOND CC THEN 


j RESTARTED 


BCS 50401$ 






LET R3 :- COMP R3 


jDO IT 


COM R3 






ELSE 




BR 50402$ 
50401$ j 






LET R3 j« R3 » 01 


iSET 1ST PASS 


IF NEW PASS AND 
INC R3 






ENOIF 


j RESTARTING 


50402$: 






ELSE 




BR 50403$ 
50400$: 






LET R3 :- R3 ♦ 01 


j SET 1ST PASS 


IF NEW PASS AND 
INC R3 






ENOIF 


tSTARTING 


50403$: 






ENOIF 


jDO NOT UPDATE IT ON CONTINUE 










50377$: 






ENOIF 


*0R ON POWER 


FAIL 

50376$: 




JSR 


PC.FIRSTU 


iINIT DEVICE 


POINTER. 




LET 


R2 :- 00 


iINIT DEVICE 


COUNTER, 





WHILE DEVTBLCR5) NE OEND DO 

LET R2 :- R2 ♦ 01 
LET RO :« R5 SHIFT -1 

GPHARD RO.RO 

IFCONO CS THEN 

LET TSSRCR5) :• (RO) 
LET TS0BCR5) ;- (RO)* - 



CLR 

50404$ 

CMP 

BEQ 

INC 

MOV 
ASR 



R2 



DEVTBL(R5),0END 
50405$ 

R2 

R5.R0 
RO 
I GET HARDWARE P TABLE FROM SUPER, 

TRAP C$GPHRD 



02 



50406$ 
CR0),TSSR(R5) 



LET TSVCKR5) :- (RO) 
SETVEC TSVCT(R5) t TS4INT(R5) 



BCC 
iSAVE TSSR ADDRESS. 

MOV 
{SAVE TSDB ADDRESS. 

MOV (RO)*, TSDBCR5) 

SUB 02, TSDB(R5) 

j SAVE INTERRUPT VECTOR ADDRESS. 

MOV (R0),TSVCT(R5) 

»OINTPRI |SET UP INTERUPT PROCESSING CONDITIONS. 

MOV OINTPRI, -CSP) 

MOV TS4INT(R5),-(SP) 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



4628 

4629 

4630 
4631 

4632 

4633 

4634 

4635 

4636 

4637 
4638 



4639 
4640 



4641 



4642 



4643 

46-44 

4645 

4646 
4647 



022264 
022270 
022274 
022276 
022302 
022302 
022304 
022306 
022306 
022310 
022312 
022312 
022316 
022316 
022320 
022320 
022320 
022326 
022326 
022326 
022326 
022326 
022326 
022326 
022326 
022332 
022336 
022336 
022340 

022340 
022540 
022342 
022344 
022344 
022350 
022354 
022356 
022360 
022364 
022364 
022370 
022372 
022376 
022400 
022404 
022406 
022412 
022414 
022414 
022416 
022416 
022420 
022420 

022420 
022420 



016546 
012746 
104437 
062706 

005703 
001410 

005703 
002003 

005265 

000403 
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002476 
000003 



Fll 



000010 



003260 



012765 000001 003260 



005065 003330 
004737 017346 

000724 



005702 
001026 

012746 004727 

012746 000001 

010600 

104417 

062706 000004 

012727 000024 

000000 

013727 002116 

000000 

005367 177772 

O01375 

005367 177756 

001367 

104422 

104444 



012700 000000 



IF R3 NE 40 THEN 
IF R3 LT 00 THEN 

LET PASCNTCR5) :» 

ELSE 

LET PASCNUR5) :» 

ENDIF 

ENOIF 

ENOIF 

LET RECCNTCR5) : « 00 

JSR PC.NEXTU 
ENODO 

IF R2 EQ 00 THEN 
PRINTF OAUDRPM 



#1 



DELAY 20, 



BREAK 
DOCLN 

ENOIF 

SETPRI OPRIOO 







SEQ 0135 




MOV 


TSVCT(R5) t -CSP) 




MOV 


03, -CSP) 




TRAP 


C$SVEC 




ADD 


010, SP 


lACTUAL PASSCOUNT UPDATE PER R3 




TST 


R3 




BEQ 


50407$ 


! 


TST 


R3 




BGE 


50410$ 




CR5) f 01 






INC 


PASCNTCR5) 


BR 


50411$ 




50410*; 






MOV 


01.PASCNTCR5) | 


50411*; 






50407$: 




t 


50406$: 




1 


j CLEAR RECORD COUNT 






CLR 


RECCNTCR5) 


I DO IT FOR ALL DEVICES. 






BR 


50404 $ 




50405$: 






j IF THERE ARE NO UNITS: 




! 


TST 


R2 




BNE 


50412$ 




j PRINT ALL UNITS DROPPED. 






MOV 


OAUORPM. -(SP) 




MOV 


01»-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF ! 




ADD 


04. SP 


j GO TO SUPERVISOR, WAIT 


2 SECONDS. 




MOV 


020.,(PC)> 




.WORD 







MOV 


L$DLY,CPC)f 




.WORD 







DEC 


-6CPO 




BNE 


.-4 




DEC 


-22CPC) 




BNE 


. -20 


j GO TO SUPERVISOR. CHECK TTT. 






TRAP 


C$BRK 


l DO CLEAN CODE ♦ ABORT 


PASS, 






TRAP 


C$DCLN 


50412$: 






{LOWER CPU PRIORITY TO 








MUV 



0PRIOO.RO 



MISCELLANEOUS SECTIONS 
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Gil 
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4648 



4649 
4650 



4651 
4652 



4653 
4654 



4655 

4656 

4657 
4658 
4659 



4660 
4661 

4662 



022424 
022426 
022426 
022432 
022434 
022442 
022444 
022450 
022450 
022450 
022456 
022460 
022460 
022460 
022466 
022470 
022470 
022474 
022474 
022502 
022504 
022504 
022512 
022512 
022516 
022520 
022524 
022526 
022532 
022534 
0225*0 
022542 
022542 
022550 
022552 
022552 
022560 
022562 
022562 
022564 
022564 
022564 
022564 
022570 
022574 
022600 
022602 
022604 
022610 
022610 
022610 
022610 
022612 
022612 
022612 
022616 
022622 



104441 

105737 
001145 
032737 
001141 
004737 



026527 
001533 



012737 
000402 

005237 

023727 
003106 

012775 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001.367 

C32775 
001420 

032775 
001001 

000456 



016546 
012746 
012746 
010600 
104417 
062706 



000412 



016546 
012746 
012746 



SEQ 0136 



002210 

000020 003540 

017300 

002536 177777 

000001 003444 

003444 

003444 000025 

002324 002456 

000372 

002116 

177772 

177756 

000200 002466 

000100 002466 



002536 
005211 
000002 



000006 



IFB IREC EQ 00 AND OADR NOTSETIN OPFLAG THEN 



JSR PC FIRSTU 

WHILE DEVTBLCR5) NE OENO DO 



TRAP CISPRI 

I IF ERROR RECOVERY IS ENABLED 

TSTB IREC 

BNE 50413$ 

BIT OADR, OPFLAG 

BNE 50413$ 
j AND AUTO -DROP NOT CALLED, THEN SET UP FOR FIRST UNI 
{WHILE THERE ARE MORE DEVICES: 

50414$: 

CMP DEVTBLCR5),0END 

BEQ 50415$ 
BEGIN COUNTER j START 3.5 MINUTE COUNTER 

INCR TIME1 FROM 01 TO 025 BY 01 

MOV 

BR 

50420$: 

INC 

50417$: 

CMP 

BGT 
LET STSDBCR5) :» OGSCPK {AND GET UN.TS STATUS 

MOV 
DELAY 250. jWAIT 25 MSEC. 



01,TIME1 
50417$ 

TIME1 

TIME 1,025 
50421$ 

0GSCPK.QTSDBCR5) 



IF OTS.SSR SETIN STSSRCR5) THEN 

IF OTS.OFL NOTSETIN 3TSSRCR5) THEN 



LEAVE COUNTER 

ELSE 



BIT 
BEQ 

BIT 
BNE 



MOV 0250.. (PC)* 

♦WORD 

MOV L$DLY.(PCV 

.WORD 

DEC -6CPC) 

BNE . -4 

DEC -22CPC) 

BNE .-20 

#TS,SSR,aTSSR(R5) 
50422$ 

OTS.OFL, STSSRCR5) 
50423$ 



jEXIT COUNTER WHEN UNIT ON LINE 
BR 50416$ 



50423$: 
PRINTF 00FLINM.DEVTBLCR5) {PRINT UNIT OFF LINE EVERY 10 SEC 



002536 
023544 
000002 



ENDIF 
ELSE 

PRINTF 0NRDYM.0EVTBLCR5) 



50424$ 

BR 

50422$ 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



50425$ 



DEVTBLCR5). -CSP) 
OOFLINM. -CSP) 
02. -CSP) 
SP.RO 

C^PNTF 
06.SP 



MOV 
MOV 
MOV 



DEVTBLCR5). -(SP) 

ONRDYM.-(SP) 
02, -CSP) 
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4663 
4664 



4665 



4666 
4667 

4668 

4669 
4670 



4671 
4672 
4673 

4674 
4675 
4676 



4677 
4678 

4679 

4680 
4681 



022626 
022630 
022632 
022636 
022636 
022636 
022636 
022644 
022646 
0226*6 
022652 
022652 
022660 
022662 
022662 
022666 
022670 
022674 
022676 
022702 
022704 
022710 
022712 
022712 
022714 
022714 
022716 
022716 
022716 
022720 
022720 
022720 
022720 
022720 
022726 
022730 
022734 
022740 
022740 

022740 
022744 
022744 
022746 
022746 
022746 
022746 
022746 
022752 
022754 
022754 
022756 
022762 
022762 
022770 
022776 
022776 



010600 
104417 
062706 



012737 
000402 



023727 
003016 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

104422 

000754 

000664 



023727 
003404 
004737 
004737 



004 737 
000641 



105737 
001026 

104431 
010037 

013737 
062737 
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000006 



Hll 



SEQ 0137 



000001 003446 



00523/* 003446 

003446 000013 



000310 
002116 
177772 
177756 



003444 000025 

01172o 
012762 



017346 



003535 



003414 

003414 
010000 



003416 
003416 





MOV 


SP.RO 
C$PNTF 




TRAP 




ADO 


06, SP 


END IF 






50425$: 






INCR TIME2 FROM #1 TO 013 BY 01 






MOV 


♦1.TIME2 


BR 


50426$ 




50427$: 






INC 


TIME2 




50426$: 






CMP 


TIME2,#13 


BGT 


504 30$ 




DELAY 200, jWAIT FOR UNIT TO BE SET ON-LINE 




MOV 


#200.. CPO* 




.WORD 







MOV 


L$DLY.(PC)f 




.WORD 







DEC 


-6CPC) 




BNE 


.-4 




DEC 


-22CPC) 




BNE 


.-20 


BREAK {ALLOW TERMINAL INTERRUPT 








TRAP 


C$BRK 


ENOINC 






BR 


50427$ 




50430$: 






BR 


50420$ 




50421$: 







ENO COUNTER 

IF TIME1 GT 025 THEN 



JSR PC.MOVMSG 
JSR PC.TCC1 
ENOIF 



JSR PC.NEXTU 

ENODO 



ENOIF 

IFB PWRFLG EQ #0 THEN 



50416$: 
j IF OFF LINE FOR 3.5 MINUTES 

CMP TIME1,#25 

BLE 50431$ 

j GET MESSAGE PACKET 
jPRINT ERROR AND DROP OFF LINE UNIT 

50431$: 
l REPEAT LWTIL ON LINE OR TIMED OUT, 
;SET UP FOR NEXT UNIT. 

BR 50414$ 

50415$; 

50413$: 



027727 160412 010000 



TSTB PWRFLG 

BNE 50432$ 

jREQUEST MEMORY FROM SllPER FOR RD/WR BUFFERS. 

TRAP C$MEM 

MOV RO. DATAWT 

iSET RD BFR AD 

MOV DATAWT, DATARD 

ADD frDATCNT.DATARC 

IF aOATAWT LT tfDATCNT THEN jWHEN NOT ENOUGH FREE MEMO AVAILABLE 

CMP SOATAWT.WATCNT 



MEMORY DATAWT 

LET DATARD :- DATAWT ♦ ODATCNT 



MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



4682 



4683 

4684 

4685 

4686 
4687 

4688 

4689 
4690 

4691 
4692 

4704 



4 705 



4706 
4 70 7 
4708 



023004 
023006 
023006 
023012 
023016 
023020 
023022 
023026 
023026 
023030 
023030 
023030 
023030 

023030 
023030 
023034 
023034 
023040 
023044 
023044 

023050 
023050 
023052 
023054 
023057 
023062 
023065 
023070 
023073 
023076 
023101 
023104 
023107 
023112 
023115 
023120 
023122 
023125 
023130 
023133 
023136 
023141 
023144 
023147 
023152 



023156 
023156 
023156 



002011 

012746 
012746 
010600 
104417 
062706 

104444 



012703 
0O4737 



104432 
000104 
045 
122 
040 
115 
124 
040 
101 
040 
122 
104 
122 
106 
045 
045 
105 
117 
040 
040 
122 
122 
105 
045 



104411 
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111 



023054 
000001 



000004 



105037 002217 



003534 
011656 



105037 003535 



101 
105 
115 
117 
117 
123 
114 
106 
040 
055 
040 
122 
116 
101 
055 
101 
111 
114 
107 
040 
115 
116 



SEQ 0138 



PRINTF <*MEMOM 



;WARN OPERATOR 



BGE 



DOCLN 
END IF 
ENOIF 



jAND ABORT PASS 



50433$ 

MOV 

MOV 

MOV 

TRAP 

ADD 

TRAP 



OMEMOM.-(SP) 

•1,-CSP) 

SP.RO 

CIPNTF 

04, SP 



jDIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 

50433$; 



C*DCLN 



LET CHGFLG :B« <K) 

LET R3 :« WENOFLG 

JSR PC,CLRERR 
LET PWRFLG :B- <K) 



50432$: 

jCLR CHANGE CMD SEQ TBL FLAG. 

CLRB CHGFLG 



0ENDFLG.R3 



MOV 
{CLEAR ALL FLAGS. 
;CLEAR THE POWER FAIL FLAG. 

CLRB PWRFLG 



EXIT 



INIT 



106 
105 
105 
040 
117 
115 
114 
117 
122 
127 
102 
123 

122 
114 
104 
116 
101 
105 
115 
117 
000 



MEMOM: .ASCII /KAFREE MEMO TOO SMALL FOR RD-WR BFRS*N/ 



TRAP 
.WORD 



CSEXIT 
L10012 



ASCIZ /KARE-LOAD IN LARGER MEM0*N/ 



L10012; 



. EV.-N 
ENDINIT 



TRAP 



C$INIT 



Jll 



MISCELLANEOUS SECTIONS 
AUTO DROP SECTION 



4710 
4711 
471? 
4713 
4714 
4715 
4716 
4717 
4718 



4719 
4720 
4721 



4722 
4723 



4724 
4725 

4726 

4727 

4728 



4729 
4730 

4731 
4732 

4733 

4734 

4735 



023160 
023160 

023160 
023164 
023164 
023164 
023172 
023174 
023174 
023200 
023200 
023204 
023210 
023214 
023220 
023222 
023226 
023226 
023232 
023232 
023236 
023240 
023240 
023244 
023246 
023246 
023252 
023252 
023256 
023262 
023266 
023270 
023272 
023276 
023276 
023304 
023304 
023306 
023310 
023310 
023312 
023312 
023314 
023314 
023314 
023322 
023326 
023326 



026527 
001525 



012746 
012746 
012746 
012746 
104437 
062706 

017502 

012700 
104436 

105737 
001423 



016546 

012746 
012746 
010600 
104417 
062706 
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.SBTTL AUTO DROP SECTION 



004737 017300 



105037 003536 



000340 
023574 
000004 
000003 

000010 

002466 

000004 

003536 



005265 003320 



002466 

023450 
000002 



SEQ 0139 



♦ ♦ 



sSECTION EXECUTED AFTER THE INIT CODE WHEN "ADR" FLAG IS SET BY OPERATOR 
{SECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
j FROM INTERFACE 



J - - 



L$AUTO; 



002536 177777 



000006 

016537 002536 017622 

010500 
006200 

104451 

000452 



012775 002324 002456 
004737 011672 

032775 000200 002466 



BGNAUTU 



JSR PC.FIRSTU 

WHILE DEVT8LCR5) NE OEND DO 



LET TRAPD4 :B» *0 
SETVEC 04.0TRAP4.0PRI07 



{FIND FIRST UNIT 



{SET VECTOR 4 



50434$ 

CMP 

BEQ 

CLRB 



DEVTBL(R5),#END 
50435$ 



LET R2 :» STSSRCR5) 
CLRVEC *4 

IFB TRAPD4 NE #0 THEN 



{ADDRESS TK25 INTERFACE 

MOV 
{CLEAR VECTOR AT 4 



TRAPD4 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



*PRI07,~CSP) 

0TRAP4.-CSP) 

*4,-CSP) 

*3.-CSP) 

C$SVEC 

#10, SP 



STSSR(R5),R2 



LET FTLCNTCR5) :- FTLCNTCR5) ♦ *1 



PRINTF $AUT0DM,TSSRCR5) 



{PRINT ERROR 



TSTB 
BEQ 

INC 



MOV 
TRAP 

TRAPD4 
50436$ 



04, RO 
CSCVEC 



LET DROPN s« DEVTBLCR5) 
LET RO :■ R5 SHIFT -1 

DODU RO 
ELSE 



LET QTSDBCR5) :- «GSCPK 

JSR PC WSSR 

IF 0TS!SSR SETIN QTSSRCR5) THEN 



FTLCNTCR5) 

MOV TSSR(R5),-(SP) 
MOV OAUTODM.-CSP) 
MOV 02,-CSP) 
MOV SP.RO 
TRAP CiPNTF 
ADD #6,SP 
{SAVE * OF UNIT TO BE DROPPEr 

MOV DEVTBLCR5), DROPN 
jRO-LOGICAL DEVICE NUMBER 
MOV R5,R0 
ASR RO 
{DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU * 

TRAP C$DODU 

BR 50437$ 

50436$; 
{SEND GET STATUS COMMAND 

MOV *GSCPK,aTSDB(R5) 
{WAIT 







BIT 



4TS.SSR,aTSSR(R5) 



MISCELLANEOUS SECTIONS 
AUTO DROP SECTION 



4736 

4737 

4738 



4739 
4740 

4741 



4742 
4743 



4744 
4745 

4746 

4747 
4746 



4749 
4750 



4751 
4752 



4753 



023334 
023336 
023336 
023344 
023346 
023346 
023352 
023352 
023356 
023362 
023366 
02337C 
023372 
023376 
023402 
023402 
023402 
023402 
023404 
023404 
023404 
023410 
023410 
023414 
023420 
023424 
023426 
023430 
023434 
023440 
023440 
023440 
023440 
023440 
023444 
023444 
023446 

023446 
023446 
023446 

023450 
023453 
023456 
023461 
023464 
023467 
023472 
023473 
0234 76 
023501 
023504 
023507 
023512 
023515 
023520 



001423 

032775 

001416 



016546 
012746 
012746 
010600 
104417 
062706 
004737 



000416 



016546 
012746 
012746 
010600 
104417 
062706 
004737 



004737 
000647 

104461 

045 
125 
124 
120 
124 
11/ 
116 
045 
116 
122 
103 
102 
040 
040 
124 
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Kll 



000100 002466 



005265 003320 



002536 
005211 
000002 



000006 
017532 



005265 003320 



O02536 
023544 
000002 



000006 
017532 



017346 



101 
123 
122 
040 
040 
066 

101 
124 
106 
105 
101 
117 
116 
040 



IF OTS.OFL SETIN STSSRCR5) THEN 

LET FTLCNTCR5) :- FTLCNTCR5) ♦ #1 
PRINTF O0FLINM,DEVTBL(R5) 



JSR PC.DROPUA 

ENDIF 





SEQ 0140 


BEQ 


50440$ 


BIT 
BEQ 


OTS.0FL,aTSSR(R5) 
50441$ 


INC 


FTLCNTCR5) 




MOV DEVTBL(R5).-CSP) 
MOV OOFLINM.-CSP) 
MOV 02,-(SP:> 
MOV SP.RO 
TRAP C$PNTF 
ADD 46, SP 



ELSE 



50441$ 



LET FTLCNTCR5) t- FTLCNT(R5) f #1 
PRINTF 0NRDYM.DEVTBLCR5) 



L10013: 



JSR PC.DROPUA 
ENDIF 

ENDIF 

JSR PC.NEXTU 
ENDDO 



ENDAUTO 



BR 
50440$: 


50442$ 




INC 


FTLCNTCR5) 




MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


DEVTBL(RS).-CSP) 

WRDYM.-(SP) 

♦2,-CSP) 

SP.RO 

C$PNTF 

06. SP 


504425; 






50437$: 






BR 
50435$: 


50434$ 





TRAP 



C$AUTO 



102 
040 
101 
101 
045 
045 

111 

105 
101 
040 
104 
122 
117 

123 



AUTODM; .ASCII /HARUS TRAP AT *06*N/ 



,ASC12 /^INTERFACE BAD OR NOT SET TO ABOVE AD*N/ 



Lll 



MISCELLANEOUS SECTIONS 
AUTO DROP SECTION 
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4754 



4755 
4756 
4757 
4758 
4 759 
4 760 
4761 

4762 

4 763 
4764 
4765 



023523 
023526 
023531 
023534 
023537 
023542 
023544 
023547 
023552 
023555 
023560 
023563 
023566 
023571 



023574 
023574 
023600 



105 
124 
101 
126 
101 
116 
045 
116 
040 
06 1 
040 
124 
104 
116 



124 
117 
102 
105 
104 
000 
101 
111 
045 
045 
116 
040 
131 
000 



SEQ 0141 



040 
040 
117 
040 
045 

125 
124 
104 
101 
117 
122 
045 



NRDYM: .ASCIZ /*AUNIT rfDltfA NOT RDYKN/ 



105237 003536 
000002 



TRAP4 



. EVEN 

DEVICE BUS TRAP HANDLER 
OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 

0: NO TRAP 

LET TRAPD4 :B« TRAPD4 ♦ 01 

RTI 



INCB 



TRAPD4 



MISCELLANEOUS SECTIONS 
CLEANUP CODING SECTION 



4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 



Mil 



4775 
4782 
4783 
4784 



4785 
4786 



4787 
4788 



4789 
4790 



4802 
4803 
4804 



023602 
023602 



023602 
023606 
023606 
023606 
023614 
023616 
023622 
023622 
023626 
023630 
023634 
023634 
023636 

023636 
023636 
023640 



023642 
023642 
023642 
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SEQ 0142 



.SBTTL CLEANUP CODING SECTION 



f ♦■ 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE END OF EACH PASS. 



BGNCLN 
LSCLEAN:: 



004737 017300 



026527 002536 

001410 

004737 011672 

016500 002476 

104436 

004737 017346 

000764 



104432 
000002 



104412 



JSR PC.FIRSTU 

WHILE DEVTBLCR5) NE flEND DO 



177777 



JSR PC.WSSR 
CLRVEC 



TSVCTCR5) 



JSR 
ENDDO 



EXIT 

.EVEN 
ENDCLN 



PC.NEXTU 



CLN 



(FIND FIRST UNIT. 

50443$: 

CMP DEVTBL(R5),V>END 
BEQ 50444$ 
j WAIT FOR UNIT READY OR TIMEOUT, 
{RELEASE INTERRUPT VECTORS FOR ALL DEV. 

MOV TSVCT(R5),R0 
TRAP C$CVEC 
$ FIND NEXT UNIT, 

BR 50443$ 
50444$: 



TRAP C$EXIT 
,WORD L 10014 -. 



L10014: 



TRAP 



C$CLEAN 



MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 



4806 
4807 
4808 
4809 
4810 
4811 
481? 
4813 
48i4 



48 IS 
4821 



4822 
4823 



4824 



4836 
483/ 
4838 



023644 
023644 

023644 
023644 
023646 
023650 
023650 
023656 
023656 
023662 
023666 
023672 
0236 74 
0236 76 
023702 
023702 
023704 



023706 
023/06 
023706 



013746 
012746 
012746 
010600 
104417 
062706 

00016 7 
000000 



104453 
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.SBTTL DROP UNIT SECTION 



Nil 



SEQ 0143 



5 THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
I TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 
{MACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 



L*DU 



010005 
006305 

012765 177774 002536 



017622 
004700 
000002 



000006 



BGNDU 

LET R5 ?« RO SHIFT 1 

LET DEVTBLCR5) : * 0NINUSE 
PRINTF ODROPDM.DRQPN 



;R5 



LOGICAL DEVICE NUMBER X 2. 
MOV RO.R 1 ) 



ASL 



R5 



L10015; 



EXIT 

.EVEN 

ENDDU 



DU 



j SET NOT IN USE FLAG FOR THE DEVICE. 

MOV ONINL'SE , DEVTBL ( R5 ) 
{PRINT DROP DEVICE MESSAGE 

MOV 

MOV 

MOV 

MOV 

TR vj 

AOb 



DROPN, CSP) 
aOROPDM.^CSP) 
02. -CSP) 
SP.RO 

C$PNTF 
46.SP 



.WORD J$JMP 
.WORD L10015-2-. 



TRAP 



C$DU 



MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 



4841 
4842 
464 3 
4044 
4845 
4846 
4847 
4848 
4849 



4850 
4856 
4857 



4858 
4859 
4860 
4861 

4862 
4863 







4864 

4865 
4866 



4878 

48/9 
4680 
4881 



4B8i> 

4885 
AQQA 



023710 
023710 



023710 
023710 
023712 
023714 
023714 
023720 
023720 
023722 
023722 
023726 
023726 
023732 
023740 
023740 
023744 
023744 
023 750 
023754 
023 760 
023764 
023766 
023772 
023772 

023776 
023776 
024000 



024002 
024002 
024002 

024004 



010005 
006305 

010065 

104442 

011065 

012065 
162765 



012746 
016546 
016546 
012746 
104437 
062706 

005065 



000167 
000000 



Bid 



104452 
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SBTTL ADD UNIT SECTION 



002536 



002466 



01106:. 002476 



000340 
002516 
0024 76 
000003 

000010 

003476 



Sf.Q 0144 



THE ADD -WIT SECTION CONTAINS U COOING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR T HE FIRS1 TIME, OR (B) RESUMED IN TESTING. 
"EF.AUNIT" IS SET, T € UNIT W LL BE TESTED AS A NEW UNIT, 



IF 



L$AU: \ 



002456 

000002 002456 



LiQQ16i 



BGNAU 



LET R!S 



RO SHIFT 1 



LET DEVTBL(R5) j- RO 
GPHARO RO.RO 
LET TSSR(R5) j- (RO) 
LET TSDB(R5) j- (R0)» 



02 



jR5 - LOGICAL DEVICE NUMBER X 2. 

MOV R0.R5 

ASL W5 

iSTORE UNIT IN DEVICE TABLE. 

MOV R0,DEVTBL(R5) 

l GET HARDWARE P TABLE FROM SUPER. 

TRAP CIGPHRD 

I SAVE TSSR ADDRESS, 

MOV (R0),TSSR(R5) 

I SAVE TSDB ADDRESS. 

MOV (R0).,TSO6(R5) 

SUB #2,TSD6(R5) 

i5AVE INTERRUPT VECTOR AOORESS. 

MOV (R0).TSVCT(R5) 

SETVEC TSVCT(R5),TS4INT(R5) I *INTPRI jSET UP INTERUPT PROCESSING CONDITIONS. 

MOV tlNTPRI.-CSP) 

MOV TS4INT(R5), ( SP ) 

MOV TSVCTCR5), -(SP) 

MOV #3, (SP) 

TRAP CISVEC 

ADO O10.SP 



LET TSVCT(R5) 



(RO) 



LET INTFLG(R5) i* 4Q 
EXIT AU 

.EVEN 

ENOAU 

ENOMQO 



jCLEAR INTERRUPT FLAGS, 

CLR 



INTFLG(R5) 



.WORD 
.WORD 



JUMP 

L 10016-2 



TRAP 



C*AU 



MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 



4887 
4698 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
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C12 



SEQ 0145 



4909 
4910 

4911 

491? 
4915 



4914 

4915 

4916 
4917 
4916 
4919 



4920 
4921 
4922 

4925 

4924 



4925 

4926 
4927 



4928 



024004 

0240O4 
024004 

024004 
0240O4 
024010 
024010 

024014 
024014 
024014 

024016 
024016 
024022 
024026 
024032 
024056 
024056 
024056 
024044 
024046 
024046 
024052 
024052 
024056 
024056 
024062 
024070 
024070 
024076 
024100 
024100 
024104 
024110 
024114 
024120 
024122 
024124 
024130 
024150 
024130 
024154 
024 1 34 
024156 
024136 



105057 
105037 

104402 



012702 
0O4757 
004 757 
004737 



026527 
001454 

016502 

062702 

011265 
042765 

026527 

001014 

0165*6 
016546 
012746 
012746 

010600 
104417 
062706 



004757 
000740 



005521 
003520 



.TITLE HARDWARE TESTS 

.SBTTL TEST 1; BASIC FUNCTIONS. 

j TEST TO EXECUTE ALL TK25 FUNCTIONS. 



Tin 



Tl.ll 



024642 
024616 
006744 
017300 



002536 177777 

002506 

000012 

002526 

177400 002526 

005260 000001 



002526 
002556 
004054 
000005 



000010 
017346 



BGNMOO 
BGNTST 

LET RANOOM jB- 00 
LET EXPBOT :B- 00 

BGNSUB 

LET R2 ?• 06FSEQ0 

JSR PC.BFSEQ 

JSR PC.EXALL 

JSR PC.FIRSTU 

WHILE DEVTBLCR5) NE OEND DO 

LET R2 t- MSCPKACR5) 

LET R«> : . R2 * 012 

LET TS4CLCR5) :■ (R2) CLR.BY 

IF PASCNTCR5) EQ 01 THEN 
PRINTF 0C0DELM.DEVTBUA5)* 



iCLR THE RANOOM OPERATIONS FLAG. 

CLRB RANOOM 

iCLR EXPECT BOT FLAG. 

CLRB EXPBOT 

jSUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS, 

TRAP CIBSUB 

I ADR OF CMO SEQ. 

MOV 0BFSEQ0.R2 

»SET UP CNO SEQ. 

.EXECUTE CMO SEQ ON ALL DEVICES, 
jFINO THE FIRST UNIT. 
iWHILE THERE AKE MORE DEVICES: 

504451} 

CMP DEVTBL(R5).0EN0 

BEQ 50446$ 

$GET MSG PACKE T ADR, 

MOV MSGPKA(R5).R2 

iGET XSTAT2 ADR, 

ADO 012,32 

0177400 , STORE COOE LEVEL FROM DTR BYTE. 

MOV (R2).TS4CL(R5) 

BIC 0177400, TS4CLCR5) 

I IF THIS IS PASS 1 THEN: 

CMP PASCNT(R5),01 

BNE 5044 71 

TS4CLCR5) jPRINT THE TK25 MICROCODE LEVEL, 



ENOIF 

JSR PC*NEXTU 
ENODO 



ENDtiUQ 



FIND NEXT UNIT. 





MOV 


TS4CLCR5), -< SP) 




MOV 


DEVTBLCR5). USP) 




MOV 


OCOOELM, ($p) 




MOV 


05, (SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


010, SP 


50447$; 






BR 


SQ445* 




b0446*i 
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D12 



024136 






L 10020: 






024136 


104403 










4929 












4930 024140 








BGNSUB 




024140 






T1.2: 






024140 


104402 










4931 












4932 024142 








LET R2 


}■ 06FSEQ1 


024142 


012702 


024 714 








4933 024146 


004737 


024616 




JSP 


PC.BFSEQ 


4934 024152 


004 737 


006744 




JSR 


PC.EXALL 


4935 024156 








LET STAFLG ;B» <?0 


024156 


105037 


003534 








4936 024162 








ENDSUB 




024162 






L10021: 






024162 


104403 










4937 












4938 024164 








BGNSUB 




024164 






T1.3: 






024164 


104402 










4939 












4940 024166 








LET R2 


:* 06FSEQ2 


024166 


012702 


024 726 








4941 024172 


004737 


024616 




JSR 


PC.BFSEQ 


4942 024176 


004737 


006744 




JSR 


PC.EXALL 


4943 024202 








ENDSUB 




024202 






L 10022: 






024202 


104403 










4944 












4945 024204 








BGNSUB 




024204 






T1.4; 






024204 


104402 










4946 












4947 024206 








LET R2 


:• 06FSEQ3 


02420,, 


012702 


025020 








4948 024212 


004737 


024616 




JSR 


PC.BFSEQ 


4949 024216 


004737 


006744 




JSR 


PC.EXALL 


4950 024222 








ENDSUB 




024222 






L 10023: 






024222 


104403 










4951 












4952 024224 








BGNSUB 




024224 






T1.5i 






024224 


104402 










4953 












4954 024226 








LET R2 


:- 0BFSEQ4 


024226 


012702 


025072 








4955 024232 


004737 


024616 




JSR 


PC.BFSEQ 


4956 024236 


004737 


006744 




JSR 


PC.EXALL 


4957 024242 








ENDSUB 




024242 






L 10024 j 






024242 


104403 










4958 












4959 024244 








BGNSUB 




024244 






U.6: 






024244 


104402 











j SUBTEST 2 - REWIND. 



TRAP 



TRAP 



CIESUB 



CiBSUB 



4960 



I ADR OF CMO SEQ. 

MOV 36FSEQ1.R2 

j SET UP CMO SEQ. 

{EXECUTE CMO SEQ ON ALL DEVICES. 
{CLEAR START FLAG 

CLRB STAFLG 



TRAP C IE SUB 

j SUBTEST 3 - WRITE/VERIFY. 

TRAP CiBSUB 

l ADR OF CMO SEQ. 

MOV OBFSEQ2.R2 

j SET LIP CMO SEQ. 
t EXECUTE CMO SEQ ON ALL DEVICES. 

TRAP CfESUB 

i SUBTEST 4 - WRITE TAPE MARK. ERASE. 

TRAP CSBSUB 

{ADR OF CMO SEQ. 

MOV 08FSEQ3.R2 

{SET UP CMO SEQ. 
lEXECUTE CMO SEQ ON ALL DEVICES, 

TRAP CiESUB 

{SUBTEST 5 - SPACE FILES. 

TRAP CJBSU8 

tADR Of CMO SEQ. 

MOV •6FSE04.R2 

|5ET UP CMO SEQ. 
{EXECUTE CMO SEQ ON ALL DEVICES. 

THAP CSbSUU 

{SUBTEST 6 - SPACE RECORDS. 

TRAP C*BSUB 



SEQ 0146 
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E12 



SEQ 0147 



4961 

4962 
4963 
4964 



4965 
4966 



4967 
4968 

4969 
4970 
4971 



4972 
4973 



4974 
4975 

4976 
4977 
4978 



4979 
4980 



4981 



4983 
4984 
4985 



4986 
4987 



4988 
4989 

4990 
4991 
4992 



4993 
4994 



024246 
024246 
024252 
024256 
024262 
024262 
024262 

024264 
024264 
024264 

024266 
024266 
024272 
024276 
024302 
024302 
024302 

024304 
024304 
024304 

024306 
024306 
024312 
024316 
024322 
024322 
024322 

024324 
024324 
024324 

024326 
024326 
024332 
024336 
024342 
024342 
024342 

024344 
024344 
024344 

024346 
024346 
024352 
024356 
024362 
024362 
024362 

024364 



012702 
004737 
004737 



104403 



104402 



012702 
004737 
004737 



104403 



104402 



012702 
004737 
004737 



104403 



104402 



012702 
004737 
004737 



104403 



104402 



012702 
004 73V 
004737 



104403 



025134 
024616 
006744 



025206 
024616 
006744 



025240 
024616 
006744 



025272 
024616 
006744 



025324 
024616 
006744 



L 10025 : 



T1.7: 



L 10026: 



Tt.8: 



L10027; 



T1.9i 



L 10030 j 



Tl.10: 



L10031: 



LET R2 ;- 0BFSEQ5 

JSR PC.BFSEQ 
JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 :- GBFSEQ6 

JSR PC.BFSEQ 
JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 :- 0BFSEQ7 

JSR PC.BFSEQ 

JSR PC.EXALL 

ENDSUB 



BGNSUB 



LET R2 :« 03FSEQ8 

JSR PC.BFSEQ 
JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 ;■ 0BFSEQ9 

JSR PC.BFSEQ 

JSR PC.EXALL 
ENDSUB 



BGNSUB 



l ADR OF CMD SEQ. 

MOV <>BFSEQ5,R2 

I SET UP CMC SEQ. 
, EXECUTE CMD SEQ ON ALL DEVICES, 



TRAP CIESUB 

I SUBTEST 7 - WRITE RETRY. 

TRAP CJBSUB 

j ADR OF CMD SEQ. 

MOV 06KSEQ6.R2 

I SET UP CMD SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CJESUB 

; SUBTEST 8 - READ REV RETRY. 

TRAP C5BSUB 

j ADR Of CMD SEQ. 

MOV *BFSEQ7,R2 

I SET UP CMO SEQ. 
j EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP C$ESUB 

i SUBTEST 9 - READ FWD RETRY. 

TRAP CIBSUB 

j ADR OF CMD SEQ, 

MOV 0BFSEQ8.R2 

j SET UP CMD SEQ. 
t EXECUTE CMD SEQ ON ALL DEVICES. 



j SUBTEST 10- CLEAN. 



TRAP 



TRAP 



C*ESU6 



CSBSU8 



I ADR OF CMD SEQ, 

MOV *eFSEQ9,R2 

j SET UP CMD SEQ. 
I EXECUTE CMD SEQ ON ALL DEVICES. 



TRAP CIESUB 

iSUaTEST 11 - WTV SWAPPED DATA BYTES. 



F12 



HARDWARE TESTS MACRO M1200 21-MAR-84 16:45 PAGE 104-3 
TEST Is BASIC FUNCTIONS. 



SEQ 0148 



4995 
4996 

4997 
4998 
4999 

5000 
5001 

5002 



5003 
5004 



5005 



5006 
5007 



5008 

5009 
5010 



5011 
5012 

5013 
5014 

5015 
5016 

501/ 

5018 
5019 

5020 
5021 

5022 
5023 

5024 
5025 

5026 



024364 
024364 

024366 
024366 
024372 
024376 
024402 
024402 
024410 
024414 
024414 
024420 
024420 
024420 

024422 
024422 
024426 
024432 
024432 
024432 
024436 
024440 
024442 
024442 
024444 
024444 
024444 

024450 
024450 
024450 

024452 
024452 
024460 
024464 
024464 
0244 72 
024476 
024476 
024504 
024504 
024512 
024516 
024516 
024524 
024530 
024530 
024536 
024542 
024542 
024550 
024554 
024534 
024560 



104402 



012702 
004/37 
004737 

112737 
004737 



104403 



013702 
062702 



020237 
001402 
000342 

000773 
105237 

104*02 



012737 
004737 

012737 
004737 



012737 
004737 

012737 
004737 

012737 

004737 

012737 
004737 



025346 
024616 
006744 

000001 
006744 



105037 003524 



003414 
000012 



003414 



003530 



104401 
016254 

000012 
016254 



112737 000001 



000011 
016254 

000012 
016254 

104001 
016254 

000011 
016254 



11,11; 



003524 



110032: 



T1.12: 



003426 

002322 

003524 
002322 

002322 

003426 

002322 



TRAP 



CIBSUB 



LET R2 :- 0BFSE1O 

JSR PC.BFSEQ 
JSR PC.EXALL 
LET SWBFLG :B- 01 

JSR PC.EXALL 
LET SWBFLG :B- 00 

ENDSUB 



LET R2 :■ OATAWT f 010 



WHILE R2 NE DATAWT DO {UNTIL 



I ADR OF CMD SEQ. 

MOV 0BFSE1O.R2 
j SET UP CMD SEQ. 
{WRITE/VERIFY RECORDS 1 AND 2. 
{ENABLE BYTE SWAPPING. 

MOVB 01, SWBFLG 
I WRITE/VERIFY RECORDS 3 AND 4 . 
{DISABLE BYTE SWAPPING. 

CLRB SWBFLG 



TRAP 



C$ESU0 



SWAB -CR2) 
ENDDO 



LET T1SW8 :B* T1SWB ► 01 



BGNSUB 



LET CMDWRD 



0RDR 



- 012 

- 011 
« 012 



105037 003524 



JSR PC.VFEXC 
LET CMDPKT*CP.CNT 

JSR PC.VFEXC 
LET SWBFLG :B- 01 

LET CMDPKT*CP.CNT 

JSR PC.VFEXC 

LET CMDPKT*CP,CNT 

JSR PC.VFEXC 
LET CMDWRD :- 0RDF 

JSR PC.VFEXC 
LET CMDPKT^CP.CNT 

JSR PC.VFEXC 
LET SWBFLG :B- 00 



LET CMDPKT^CP.CNT : - C12 



011 



jINIT WRITE BUFFER POINTER. 

MOV DATAWT. R2 

ADD 010..R2 

10 BYTES HAVE BEEN SWAPPED. 

50450$; 

CMP R2. DATAWT 

BEQ 50451$ 

j SWAP DATA BYTES IN WRITE BUFFER. 

BR 50450$ 

504511: 
j SET Tl SWAP BYTES FLAG FOR "CKDATA" SUBR 

INCB T1SW6 

j SUBTEST 12 - READ SWAPPED DATA BYTES. 

TRAP C$BSU6 

;CMD IS READ REV. 

MOV 0ROR.CHDWRD 
{VERIFY ODD LENGTH SWAP (RECORD 4), 
{CHANGE BYTE COUNT TO 10. 

MOV 012,CMOPKT*CP.CNT 
; VERIFY EVEN LENGTH SWAP (RECORD 3). 
^ENABLE BYTE SWAPPING. 

MOVB 01. SWBFLG 
{CHANGE BYTE COUNT TO 9. 

MOV 0U.CMOPKT+CP.CNT 
{VERIFY ODD LENGTH SWAP (RECORD 2). 
{CHANGE BYTE COUNT TO 10. 

MOV 012,CMDPKT*CP,CNT 
{VERIFY EVEN LENGTH SWAP (RECORD 1). 
j CMD IS READ FWD. 

MOV 0RDF.CMOWRD 
{VERIFY EVEN LENGTH SWAP ^RECORD 1). 
{CHANGE BYTE COUNT TO 9. 

MOV 011.CMOPKWCP.CNT 
{VERIFY ODD LENGTH SWAP (RECORD 2). 
{DISABLE BYTE SUAPPING. 

CLRB SWBFLG 
{CHANGE BYTE COUNT TO 10. 
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024560 


012737 


000012 


002322 




5027 024566 


004737 


016254 




JSR PC.VFEXC 


5028 024572 








LET CNOPKTfCP.CNT 


024572 


012737 


000011 


002322 




5029 024600 


004737 


016254 




JSR PC.VFEXC 


5050 










5031 024604 








ENDSUQ 


024604 








L 10033: 


024604 


104403 








5032 










5033 024606 








LET T1SWB :B« 00 


024606 


105037 


003530 






5034 










5035 










5036 024612 








EXIT TST 


024612 


104432 








024614 


000554 









G12 



011 



MOV 012,CMDPKT*CP.CNT 

I VERIFY EVEN LENGTH SWAP (RECORD 3). 
> CHANGE BYTE COUNT TO 9. 

MOV *11,CMDPKT*CP,CNT 

{VERIFY ODD LENGTH SWAP C RECORD 4). 



TRAP 

jCLEAR Tl SWAP BYTES FLAG 

CLRB T1SWB 



C$ESU8 



TRAP CJEXIT 
.WORD L10017-. 



SEQ 0149 



HARDWARE 
TEST 1: 

5038 
5039 
5040 
5041 
5042 
5043 
5044 



H12 



TESTS 
BASIC 



5045 

5046 
5047 

5048 

5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
50 75 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 



024616 
024616 
024622 
024622 
024622 
024626 
024630 
024630 
024632 
024632 
024634 
024634 
024634 
024640 



024642 
024644 
024646 

024650 
024652 
024654 
024656 
024660 
024662 
024664 
024666 
024670 
024672 
024674 
024676 
024700 
024 702 
024704 
024706 
024710 
024712 

024 714 
024716 
024 720 
024722 
024724 

024726 
024 730 
024732 
024734 



MACRO M12 
FUNCTIONS. 
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SEQ 0150 



021227 
001402 

012221 

000773 



012711 
000207 



140004 
000200 
0O0001 
000000 
100013 
OOOOOl 
000001 
000000 
140004 
000020 
OOOOOl 
OOOOOO 
10O017 
OOOOOl 
OOOOOl 
OOOOOO 
140004 
000040 
OOOOOl 
OOOOOO 
177777 

102010 
OOOOOl 
000002 
OOOOOO 
177777 

104105 
010000 
OOOOOl 
OOOOOl 



i 



SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE, 

INPUTS: R2 - FWA OF COMMAND SEQUENCE. 

OUTPUTS? 

REGISTERS; 

CALLS: 



012701 003542 



177777 



177777 



BFSEQ: LET Rl :■ 4CM0SEQ 

WHILE CR2) NE *END 00 

LET (Rl), := CR2)* 
ENDDO 

LET (Rl) :- <^END 
RTS PC 

t BASIC FUNCTION COMMAND SEQUENCE 

BFSEQO: .WORD SCH 

200 
1 


DRI 
1 
1 


SCH 
20 
1 


GES 
1 
1 


SCH 
40 
1 

•WORD END 

RWD 
1 
2 

.WORD END 



lINIT SEQ TABLE ADDRESS. 

MOV *CM0SEQ,R1 
j WHILE THERE ARE MORE COMMANDS: 

504521: 

CMP (R2),0€ND 

BEQ 50453$ 
j MOVE COMMANDS TO SEQ TABLE. 

MOV (R2)»,(R1)* 

BR 50452$ 

50453$: 
j STORE END OF SEQUENCE CODE. 

MOV OEND.CRl) 
{RETURN. 



j SET CHAR. 200. 



iDSIVE INIT. 



j SET CHAR. 20 



jGET STATUS. 



{SET CHAR. 40. 



(1) 



(2) 



(3) 



(4) 



(5) 



BFSEQ1: 



iREWIND TWICE. 



(6) 



BFS6Q2: 



WTV 
DATCNT 

1 
1 



iwrite/verifi pat 1. 



(7) 
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SEQ 0151 



5087 


024736 


104105 


5088 


024740 


010000 


5089 


024742 


000001 


5090 


024744 


000002 


5091 


024746 


104105 


5092 


024750 


010000 


5093 


024752 


000001 


5094 


024 754 


C00003 


5095 


024 756 


104105 


5096 


024760 


010000 


5097 


024762 


000001 


5098 


024764 


000004 


5099 


024 766 


104105 


5100 


024770 


010000 


5101 


024772 


000001 


5102 


024774 


000005 


5103 


024776 


1C4105 


5104 


025000 


010000 


5105 


025002 


000001 


5106 


025004 


000006 


5107 


025006 


104105 


5108 


025010 


01OOOO 


5109 


025012 


000001 


5110 


025014 


000000 


5111 


025016 


177777 


5112 






5113 


025020 


100011 


5114 


025022 


000001 


5115 


025024 


00OCO1 


5116 


025026 


oooooo 


5117 


025030 


104005 


5118 


025032 


010000 


5119 


025034 


000010 


5120 


025036 


000001 


5121 


025040 


100411 


5122 


025042 


000001 


5123 


025044 


000010 


5124 


025046 


oooooo 


5125 


025050 


100011 


5126 


025052 


OOOOOl 


5127 


025054 


000001 


5128 


025056 


oooooo 


5129 


025060 


101011 


5130 


025062 


000001 


5131 


025064 


OOOOOl 


5132 


025066 


oooooo 


5133 


025070 


177777 


5134 






5135 


025072 


105410 


5136 


0250/4 


000002 


5137 


025076 


OOOOOl 


5138 


025100 


oooooo 


5139 


025102 


105010 


5140 


025104 


000002 


5141 


025106 


OOOOOl 


5142 


025110 


OOOOOO 


5143 


025112 


105410 



.WORD 



BFSEQ3: 



.WORD 



BFSEQ4; 



WTV 

DATCNT 

1 

2 

WTV 

DATCNT 

1 

3 

WTV 

DATCNT 

1 

4 

WTV 

DATCNT 

1 

5 

WTV 

DATCNT 

1 

6 

WTV 

DATCNT 

1 



END 

WTM 

1 

1 



WRT 

DATCNT 

10 

1 

ERS 

1 

10 



WTM 

1 

1 



WTR 

1 

1 



END 

SFR 
2 

1 



■>'F 

< . 

1 



SFR 



jWTV PAT 2. 
I WTV PAT 3. 
j WTV PAT 4. 
jWTV PAT 5. 
{WTV PAT 6. 
{WTV PAT 0. 



(8) 



(9) 



(10) 



(11) 



(12) 



(13) 



j WRITE TAPE MARK. 
I WRITE 10 RECORDS. 
{ERASE 10 TIMES. 
{WRITE TAPE MARK. 
iWTM RETRY 



(14) 



(15) 



(16) 



(17) 



(18) 



i SPACE 2 FILES REV. 



{SPACE 2 FILES FWD. 



{SPACE 2 FILES REV, 



(19) 



(20) 



(21) 



J12 
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SEQ 0152 



5144 


025114 


OOOOOl 


5145 


025116 


000002 


5146 


025150 


000000 


5147 


025122 


105010 


5148 


025124 


OOOOOl 


5149 


025126 


000002 


5150 


025130 


000000 


5151 


025132 


177777 


5152 






5153 


025134 


102010 


5154 


025136 


OOOOOl 


5155 


025140 


OOOOOl 


5156 


025142 


000000 


5157 


025144 


104010 


5158 


025146 


000007 


5159 


025150 


OOOOOl 


5160 


025152 


oooooo 


5161 


025154 


104410 


5162 


025156 


000007 


5163 


025160 


OOOOOl 


5164 


025162 


OOOOOO 


5165 


025164 


104C10 


5166 


025166 


OOOOOl 


5167 


025170 


000007 


5168 


025172 


oooooo 


5169 


025174 


104410 


5170 


025176 


OOOOOl 


5171 


025200 


000007 


5172 


025202 


OOOOOO 


5173 


025204 


177777 


5174 






5175 


025206 


102010 


5176 


025210 


OOOOOl 


5177 


025212 


OOOOOl 


5178 


025214 


OOOOOO 


5179 


025216 


104005 


5180 


025220 


010000 


5161 


025222 


OOOOOl 


5182 


025224 


OOOOOl 


5183 


025226 


105005 


5184 


025230 


010000 


5185 


025232 


OOOOOl 


5186 


025234 


OOOOOl 


5187 


025236 


177777 


5188 






5189 


025240 


104401 


5190 


025242 


010000 


5191 


025244 


OOOOOl 


5192 


025246 


OOOOOl 


5193 


025250 


105401 


5194 


025252 


010000 


5 i 95 


025254 


OOOOOl 


5 a 96 


025256 


OOOOOl 


5197 


025260 


125401 


5198 


025262 


010000 


5199 


025264 


OOOOOl 


5200 


025266 


OOOOOl 



.WORD 



BFSEQ5; 



.WORD 



BFSEQ6: 



.WORD 



BFSEU7; 



1 

2 



SFF 

1 

2 



END 

RWD 

1 

1 



SRF 

7 

1 



SRR 

? 

1 



SRF 

1 

7 



SRR 

1 

7 



END 

RWD 

1 

1 



WRT 

OATCNT 

1 

1 

URR 

DATCNT 

1 

1 

END 

RDR 
DATCNT 

1 

1 

RNR 

DATCNT 

1 

1 

RNF 

DATCNT 

1 

1 



j SPACE 2 FILES FWD. 



C22) 



{REWIND. 



(23) 



j SPACE 7 RECORDS FWD. (24) 



j SPACE 7 RECORDS REV. (25) 



; SPACE 7 RECORDS FWD. (26) 



{SPACE 7 RECORDS REV. (27) 



{REWIND, 



{WRITE. 



{WRITE RETRY. 



(28) 



(29) 



(30) 



{READ REV, 



{READ NEXT REV. 



{READ NEXT FWD. 



(31) 



C 32 ) 



(35) 



K12 
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SEQ 0153 



5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 



025270 177777 



025272 
025274 
025276 
025300 
025302 
025304 
025306 
025310 
025312 
025314 
025316 
025320 
025322 

025324 
025326 
025330 
025332 
025334 
025336 
025340 
025342 
025344 

025346 
025350 
025352 
025354 
025356 
025360 
025362 
025364 
025366 



025370 
025370 
025370 



104001 
010000 
000001 
000001 
105001 
010000 
000001 
000001 
125001 
010000 
000001 
0C0001 
177777 

101012 
000001 
000001 
000000 
102010 
000001 
000001 
000000 
177777 

104105 
000012 
000001 
000000 
104105 
000011 
000001 
000000 
177777 



104401 



, WORD END 



BFSEQ8; 




RDF 

DATCNT 

1 

1 

RPF 

DATCNT 

I 

1 

RPR 

DATCNT 
1 

1 




.WORD 


END 


BFSEQ9; 


.WORD 


CL.N 

1 

1 



RWD 

1 

1 






.WORD 


END 


BFSE10: 




WTV 

12 

1 



WTV 

11 

1 






.WORD 


END 




.EVEN 





j READ FWD. 



{READ PREVIOUS FWD. 



{READ PREVIOUS REV. 



(34) 



(35) 



(36) 



{CLEAN. 



{REWIND 



(37) 



(38) 



{END OF SEQUENCE, 
{WRITE/VERIFY EVEN LENGTH. 

{WRITE/VERIFY ODD LENGTH. 



(39) 



(40) 



L10017: 



ENDTST 



TRAP C*ETST 



L12 
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5240 
5241 
5242 
5243 
5244 
5245 
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5246 

5247 

5248 
5249 

5250 



5251 
5252 



5253 
5254 

5255 

5256 

5257 

5258 

5259 
5260 
5263 
5262 

5263 

5264 



5265 
5266 



5267 

5263 
5269 



025372 
025372 

025372 
025372 
025400 
025400 
025404 
025404 
025410 
025412 
025412 
025416 
025422 
02542ft 
025426 
025432 
025434 
025440 
025440 
025444 
025444 
025444 
025444 
C25450 
025450 
025454 
02545* 
025460 
025462 
025462 
025464 
025464 
0254 70 
025470 
025470 
025470 
025470 
0254 74 
025476 
0254 76 
025504 
025504 
025510 
025514 
025520 
025520 
025522 
025522 
025522 
025526 
025532 



112737 

105037 

012702 
005302 

010237 
005137 
004737 

105737 
001404 
004737 

105037 



012702 
005102 



020127 
002012 



013702 
042702 
004772 

000763 



012711 
004737 



000001 
003520 
010000 

003436 
003436 
006700 

003534 

006724 

003534 



012721 104005 
012721 010000 



177740 



010221 

012721 000007 



003632 



003442 
177741 
025652 



177777 
006744 



.SBTTL TEST 2t DATA RELIABILITY, 



J ♦♦ 



TEST TO CHECK THE DA^A RELIABILITY OF THE TK25. 
BGNTST 



T2: 



003521 



063737 0C3440 003442 



LET RANDOM ;B- 01 
LET EXPBOT :B« #0 
LET R2 :* ODATCNT - 01 

LET LENMSK :• COMP R2 



JSR PC.SETCH 

IFB STAFLG NE 00 THEN 



JSR PC.SETRW 
LET STAFLG :B« 00 



ENDIF 
LET CRD* 
LET CRD* 
LET R2 :- 



:- 0WRT 
:» frOATCNT 
COMP ORNOPSC 



LET CRD* !» R2 
LET CRD* :- *RANP 
REPEAT 

WHILE Rl LT 0SEQEND DO 



; SET THE RANDOM OPERATIONS FLAG. 

MOVB 01 .RANDOM 

{CLEAR EXPECT BOY FLAG. 

CLRB EXPBOT 

j SET UP THE RECORD LENGTH MASK, 

MOV 00ATCNT.R2 
DEC R2 

{ALLOW MAXIMUM BUFFER. 

MOV R2, LENMSK 
COH LENMSK 

jCMD 1 • SET CHARACTERISTIC. 

{IF STARTING THEN: 

TSTB STAFLG 
BEQ 50454$ 

{CMD2-REWIND 

jCLR START FLAG. 

CLRB 



{CMD3 * WRITE. 



50454* 

MOV 



STAFLG 



OURT.CRl;* 



{SET BRF TO MAX FOR PATTERN GENERATION 



131 OPERATIONS. 
;RANOOM PATTERN. 



MOV 

MOV 
COM 

MOV 

MOV 



0OATCNT.CRD* 

0RN0PSC.R2 
R2 

R2.CRD* 

ORANP.CRD* 



{REPEAT TO EOT: 

50455$: 
{FILL SEQ TBL WITH RANDOM CMOS. 

50456$: 

CMP R1,*SEQEND 

BGE 50457$ 



LET RANS : * RANS ♦ RANB 

LET R2 :- RANS CLR.BY 0177741 



JSR rc.BRANCMD(R2) 
ENDP' 



ADD RANB, RANS 

;R2 - RANDOM CO ■■ 56). 

MOV RANS.R2 
BIC #177741, R2 

{SET OP A RANDOM CMO * BRF. 



LET <RD 



•END 



JSR PC.EXALL 
LET Rl :• OCMOSEQ 



BR 50456$ 
50457$ j 

{STORE END OF SEQUENCE CODE IN TABLE. 

MOV *t.ND.(Rl) 
jGO EXECUTE ALL CMOS IN SEQUENCE TABLE 
jINIT CMD SEQ TBL POINTER, 



SEQ 0154 
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M12 



5270 



5271 

5272 
5273 

5274 
5275 
5276 
5277 
5278 
5279 
5280 



5281 

5282 

5283 
5284 

5285 

5286 

5287 
5288 

5289 
5290 
5291 

5292 



025532 
025536 
025536 
025540 
025542 
025542 
025546 
025550 
025552 
025554 



02L r 560 
025564 
025564 
025572 
025576 
025576 
025604 
025604 
025610 
025614 
025614 
025620 
025620 
025626 
025626 
025632 
025636 
025636 
025642 

025646 
025646 
025650 



012701 003542 



005702 
001753 

105237 
000240 
000240 
000240 
004737 



012711 
004737 

105037 

112737 

012701 
004 737 

012711 

004737 



104432 
000174 



003531 



027640 
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UNTIL R2 NE i>0 



LET ALLEOT :B- ALLEOT ♦ #1 



NO:* 
NOP 
NOP 
JSR 



004737 025712 

012737 177740 003546 

005137 003546 

013737 003546 003556 



177777 
006744 

003531 

000001 003523 

003542 
006724 

177777 
006744 



PC.T5WE0T 



JSR PC.RANRD 

LET CMDSEQ+4 :• COMP 4RN0PSC 



LET CMDSEQ + 14 : - CMDSEGM 

LET CRD ;- OF.ND 

JSR PC.EXALL 
LET ALLEOT :B- 00 

LET RPTFLG :B« #1 

LET Rl i- OCMDSEQ 

JSR PC.SETRW 
LET CRD :- OEND 

JSR PC.EXALL 

EXIT TST 



SEC) 0155 



MOV OCMDSEQ, Rl 
, REPEAT UNTIL EOT IS REACHED 

TST R2 

BEQ 50455$ 
{FLAG ALL UNITS S EOT 

INCD ALLEOT 



j WRITE ONE RECORD BEYOND EOT ON ALL UNITS 

j SO THAT SHORTER READ STOP DISTANCE 

5 SHALL POSITION HEAD IN CLEAN IRG GAP 

;READ REV THAT EXTRA REC TO Rfc -POSITION THE TAPE 

j SET UP READ REV/FUD CMDS, 

{0 OF RECORDS FOR READ REV. 

MOV 0RNOPSC,CMDSEQ*4 

COM CMDSEQ*4 

} OF RECORDS FOR READ FORWARD. 

MOV CMOSEQ*4,CM0SEU*14 

{STORE END OF SEQUENSE CODE IN SEQ TABLE. 

MOV 0EN0.CR1) 

{GO EXECUTE READ REV/FWD OF LAST N REC0RD5. 
{CLEAR ALL UNITS S EOT FLAG 

CLRB ALLEOT 

{REQUEST PERFORMANCE REPORT DURING REWIND. 

MOVB 01, RPTFLG 

{INIT SEQ TBL POINTER, 

MOV OCMDSEQ, Rl 

{STORE REWIND IN SEQ TBL, 
{STORE END IN SEQ TBL, 

MOV 0END.CR1) 

lEXECUTE REWIND CMD ON ALL UNITS 



TRAP 
,WORD 



CiEXIT 
L10034- 



N12 
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SEQ 0156 



5294 
5295 
5296 
5297 
529S 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 

5325 

5326 



5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 



025652 

025654 
025656 
025660 
025662 
025664 
025666 
025670 
025672 
025674 
025676 
025700 
025702 
025704 
025706 
025710 



025712 
025712 
025716 
025716 
025724 
025724 
025730 
025734 
025734 
025/36 
025736 
025742 
025742 
025746 
025746 
025752 
025752 
025756 
025/56 
025760 
025760 
025764 



025766 
025766 
025766 
025766 
025766 
025766 
025766 
025766 
025712 
025712 
025712 
025712 
025712 
025712 
025712 
025712 



013702 
042702 

03 0221 

012721 

012721 

012721 

012721 

010221 

012721 
000207 



RANCMD 



012721 104410 

063737 003442 003440 



RANRD : 



003440 
177740 



000001 
000007 
104001 
010000 

000007 



ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST, 



RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANWR 
RANRO 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 



s WRITE 
{WRITE 
{WRITE 
i WRITE 
{WRITE 
{WRITE 
{WRITE 
{WRITE 
;READ. 
{READ. 
{READ. 
{READ. 
{READ. 
{READ. 
{READ. 
{READ. 



SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS! R2 

CALLS: 



LET 


CRD* 


- OSRR 




{STORE SPACE RECORD REVERSE CMD 










MOV 


0SRR.CR1)* 


LET 


RANB t> 


■ RANB • RANS 














ADD 


RANS t RANB 


Lul" 


R2 :- RANB CLR.BY 


ARNOPSC 














MOV 


RANB.R2 










BIG 


*RN0Pr,C,R2 


LET 


CRD* 


* *>2 




{SET REPOSITION COUNT 

MOV 


R2.CRD* 


LET 


(Rl)» 


» 01 




jDO ONCE 

MOV 


01, CRD* 


LET 


CRD* 


- #RANP 




{RANDOM PATTERN. 

MOV 


ORANP.CRD* 


LET 


CRD* 


* #FJK 




{STORE READ F'WD CMD. 

MOV 


*RDF\(Ri)* 


LET 


CRD* 


- tfDATCNT 




{SET BRF TO MAX TO READ 

MOV 


RANDOM LENGTHS 
ODATCNT.CRIV 


LET 


CRD* 


* R2 




{SET RANDOM i> Of OPERATIONS. 










MOV 


R2.CRD* 


LET 


(RD* 


- tfRANP 




{RANDOM PATTERN, 

MOV 


4RANP ,(R1)» 


RTS 


PC 











B 1 5 
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5336 

5337 
5338 
5339 
5340 
5341 
534? 
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534 3 
5344 
534*. 
534b 
534 7 
5548 
5349 
5550 
5351 
535*? 
5353 
5554 
5355 
5356 

5357 
5358 
5359 
5360 
5361 
556? 
5563 
5564 
5365 
5566 
5367 
5 368 
5369 
5370 
53/1 

537? 

5373 

5374 



5375 

5376 

53J7 
53 78 
53 79 
5360 

S381 



55Gi> 



025 766 
025 766 
025 7 72 
025776 



026000 
026000 
026004 
026010 



026012 
026012 

026016 
026016 
026024 
026024 
026030 
026054 
026054 
026056 
026056 
026042 



026044 
026044 
Q26Q44 



012721 104005 
004 73? 026012 
000207 



013702 
04270? 

010221 

012721 
000207 



104401 



012721 104105 
004737 026012 
000207 



012721 ClOOOO 



063757 005442 005440 



003440 
177740 



00000V 



SLGROUTINE TO SET \JP A WRITE COMMAND IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS? 

REGISTERS: 

CALLS: 



RANWRj LET (Rl)» :■ 

JSR PC.RANW 
RTS PC 



dWRT 



1 5 TORE WRITE CMO. 

MOV ♦WRT,(R1)» 
iSTORE BRF, OF OPERATIONS. PATTERN, 



SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE, 

INPUTS; 

OUTPUTS: 

REGISTERS: 

CALLS: 



RANWV: LET CRD* :< 

JSR PC.RANW 
RTS PC 



*WTV 



) ST0RE WRITE/VERIFY CMC. 

MOV *UTV,(R1)» 

iSTORE BRF, OF OPERATIONS* PATTERN, 



SUBROUTINE TO STORE BRF , * OF OPFRAUONS, PATTERN IN COMMANO 

SEQUENCE TABLE FOR WRITE ANO WRITE/VERIFY COMMANOS, 

INPUTS; 

OUTPUTS; 

REGISTERS: 

CALLS: 



R2 
RANWj LET (Rl)« j- *OATCNT 



SEQ 0157 



LET RAN6 :• RANB 



RAN! 



jSFT BRF TO MAX FOH PATTERN GENERATION. 

MOV fOATCNT.(Rl). 

iRANOOM BRF WILL BE GENERATED F OR EACH RKCOHU 



L 10054 i 



LET R? j- RANB CLR.BY ORNOPSG 

LET (Ri )» j - R? 

LET (Rl). ,« $RANP 

RTS PC 

.EVFN 

ENQTST 



ADO 



RANS.RANB 



MOV RANB,R? 

BIC #«N0PSC,R2 

I SET RANDOM ♦ OF OPERATIONS. 

MOV 
, RANDOM PATTERN, 

MOV 
I RETURN. 



N2.CRI). 
#«ANP,(R1). 



TRAP 



c*tTs»r 
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5584 

5385 

SSflb 
5387 
5588 
5389 

5390 
5391 



C13 
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539? 
5395 
5394 

5395 
5396 



5397 



5398 

5399 

5400 

5401 

5402 
5403 
5404 

5405 

5406 
5407 
5408 
5409 
5410 
5411 
541? 
5413 
5414 
54 15 
5416 



541/ 
5418 

54 19 

542Q 



026046 
026046 

026046 
026046 
026052 
026054 
026054 
026060 
026064 
026066 
026070 
026074 
0260 74 
026100 
026100 
026100 
026100 
026104 
026104 
026110 
026114 
026120 
026120 
026124 
026124 
026130 



026140 
026140 
026140 
026146 

026150 
026150 
026156 
026156 
026162 
026162 



105737 003340 



012746 
012746 
010600 
104417 
062706 

105237 



10503 7 
0O4737 
004737 



0127X1 

0O4737 



021571 
0O0001 



000004 
003340 



105037 003521 



003520 
0O6700 
006724 



105037 003534 



177777 
006744 



026134 004737 03 7300 



T3n 



026* '' 002536 17777/ 
001544 



016537 002550 003516 

0050 7 7 155354 

112737 00037 Y 003532 



SEQ 0158 



SBTTL TEST 3* WRITE ANO READ STREAMING TEST. 



THIS TEST STREAM WRITES 9000 RECORDS Of 4096 BYTES FACH, 

DATA IS THEN VERIFIED BY PERFORMING A REWINO OPERATION, FOLLOWED 

BY A READ FORWARD OPERATON FOR THE 9000 RECORDS, 



BGNTST 



IFB HERE EQ 00 THEN 



PRINTF 0TAPCAP 



LET HERE :B« HERE ♦ 01 

ENDIF 

LET RANOOM :B* 00 

LET EXPBOT :B- 00 

JSR PC. SETCH 
JSR PC, SETRW 
LET STAFLG :B- 00 

LET (Rl) :• 0f.NO 

JSR PC, EX AIL 

JSR PC, FTRSTU 



TSTB 


HERE 




BNE 


504601 






MOV 


0TAPCAP,-(SP) 




MOV 


01. (SP) 




MOV 


SP.RO 




TRAP 


C*PNTf* 




ADD 


04, SP 



INCB 



HERE 



50460$; 
iCLEAR THE RANDOM OPERATIONS FLAG. 

CLR8 RANDOM 

iCLEAR THE EXPECT BOT FLAG. 

CLR8 EXPBOT 

iSET CHARACTERISTICS. 
iSET REWINO COMMANO IN BUFFER. 
iCLEAR THE START FLAG, 

CLRB STAFLG 

jPLACE END FLAG IN SEQUENCE TABU. 

MOV *EN0,(Rn 

jREWIND ALL UNITS, 

jFINO THE FIRST UNIT TO TEST ( UUT ) 



I 



iWRITE AND READ EACH UNIT IN TURN BEFORE GOING ON TO THE NEXT. 



WHILE DEVTBL(R5) NE OENO DO 

LET BTPT j- HTADDR(R5) 

LF T SBVPT ;» 00 

LET STREAM |Q> 0255, 



iWHILE THERE ARE MORf DEVICES: 

504611 j 

CMP DEVTBL (R5) I 0ENO 

BEQ 504621 

iClEAR BAD SPOT COUNTER 

MOV HrADD«(.MS ),«TPT 
■START FROM HOI 

CI R do TP T 

liiEI FLAG • WE'RE GOING To STRkAM 

MOVB 0255 t% STRLAM 



HARDWARE 
TEST 5: 

5421 

5422 

5423 

5424 



016 
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54^5 



5426 

5427 
5428 

5429 
54 30 

5431 
5432 



5433 
5434 
5435 
54 36 
5437 



5438 

54 39 
5440 
5441 

544? 

544 3 
5444 

5445 

5446 
5447 

5448 

5449 

5450 



026170 

026170 012701 

026174 

026174 012721 

026200 

026200 012721 

026204 

026204 012721 

026210 

026210 012721 

026214 

026214 012711 



026220 
026220 
026224 
026230 
026230 

026234 
026234 
026234 
026242 

026244 
026250 
026254 
026260 
026260 
026266 
0262 70 
0262 70 
026276 
026302 
026302 
026302 
026302 
026306 
026306 
026310 
026310 
026310 
026314 
026320 
026320 
026324 
026324 
026330 
026334 
026334 
026340 
026340 
026344 
026344 
026352 
026354 
026354 



012701 

004737 



O03542 
104005 
010000 
021450 
000005 
177777 



003542 
007706 



010537 003460 



023737 
002022 

0O4737 
0O4737 
004737 

02652? 
001005 

015737 
005337 



005237 
000752 



012701 
004737 



003420 003422 



007600 
010654 
011274 

002536 1777 74 



003422 003420 
003420 



003420 



O03542 
006724 



0^?71i 177777 



013M6 
0O4737 

013705 

012637 

026527 
001431 



OO2074 

006744 

003460 

002074 
002536 



177774 
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SEC 0159 



LET Rl :• OCMDSEQ 



LET 


(Rl)* 


: - OWRT 


LET 


(Rl)* 


!- OOATCNT 


LET 


CRD* 


:- 09000, 


LET 


CRD* 


:- 05 


LET 


(Rl) 


:• OEND 


LET 


Rl t- 


OCMOSEQ 



J5R PC, SETUP 
LET R55AVF ;• R5 



I SETUP SEQUENCE TABLE ADDRESS 

MOV OCMOSrQ.Rl 
iWRITE COMMAND 

MOV OWRT.(Rl)* 
14096-BYTE RECORD LENGTH. 

MOV 0DATCNMR1)* 
jWRITE 9000 RECORDS 

MOV 09O00.,(Rl)» 

iGENERATE AND WRITE PATTERN 5. 

MOV 05,CR1)» 
I SET END OF SEQUENCE TABLE. 

MOV OfNO.CRl) 

jSEQ. TABLE AODRESS F*OR SU6R . 'SETUP' 

MOV OCMOSEQ, Rl 
jSETUP THE COMMANO TABLE 

iSAVE R5, EH? 

MOV R5.R5SAVE 



WHILE NCNT LT NCNT1 DO 



JSR PC, CMOAC 
JSR PC. EXCUTE 
JSR PC, GOWAIT 
IE DEVTBL(R5) EQ OfONUSE THEN 



LET NCNT 
ENOir 



• NCNT1 - 01 



LET NCNT 
ENODO 



{« NCNT * 01 



LET Rl 



OCMDSEQ 



JSR HCSETRW 

LET (Rl) :- OENO 



LET -CSP) 



LILUN 



JSR 
LET R5 



PC.EXALL 
» R5SAVE 



012701 003542 



LET I ll.UN : - ( SP ) ♦ 

I* DEVTBUR5) NE ONINUSE THEN 

LET Rl :• OCMDSEQ 



» WHILE MOflE RECORDS SHOULD BE WRITTEN: 

50463$: 

CMP NCNT.NCNT1 

BGE 504641 

j SAVE ASCII COMMAND FOR ERROR MESSAGE 
jlSSiJt COMMAND TO UNIT. 
|G0 WAIT FOR DONE TO SET 

CMP DEVTBL(R5),0NINUSE 

BNE 504651 

MOV NCNT1.NCNT 

DFf NCNT 

50465$: 
lUPOATE THE RECORD COUNT 

INC NCNT 

lENO Of RECORD 'DO' LOOP 

BR 50463$ 

50464$: 
jRESET Rl TO TOP C* TABLE 

MOV OCMOSEQ, Rl 

lISSL* REWINO 
iPLACE END FLAG IN SEQUENCE TABLE 

MOV 0€ND,(R1) 

jSAVE THE CURRENT I UN 

MOV LU.UN, -ISP) 

,D0 REWINO, NOW 
jRFSTORE R5 

MOV R5SAVE.R5 

j RESTORE THE CURRENT LUN 

MOV CSP)».L$l.UN 



CMP 
BEQ 
l TOP Of COMMAND TAOLfc 

MOV 



DEVTBLiR5),oNINUSb 
50466$ 

OCMDSEQ ,Rl 



E13 
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5451 

5452 

5453 

5454 

5455 

5456 

5457 
5456 

5459 

5460 
5461 

5462 

5463 

5464 

5465 

5466 
5467 
5468 

5469 
5470 

5471 

5472 
5473 

5474 
5475 

54 76 
54/f 
5478 



54 79 
5480 

5*ai 



026360 
026360 
026364 
026364 
026370 
026370 
026374 
026374 
026400 
026400 
026404 
026404 
026410 
026414 
026414 
026422 
026422 
026426 
026432 
026432 
026436 
026436 
026436 
026436 
026442 
026442 
026446 
026446 
026452 

026456 
026456 
026460 

026460 
026460 
026464 
026464 
0264 70 
026470 
026476 
026476 
026502 
026506 
026506 
026512 

026516 
026516 
026520 



026522 
026522 
026522 



012721 
012721 
012721 

012721 

012721 

012701 
004737 



104001 

010000 

021450 

000005 

177777 

003542 
007 706 



112737 0OO001 003522 



010537 
004737 



003460 
016142 



013705 003460 



005037 

105037 

10503 7 
004737 

000630 

105037 

105037 

112737 

012701 
004737 

0127U 
004737 



104432 
000002 



104401 



003420 

003522 

003520 
017346 



003532 

003531 

000001 003523 

003542 
006724 

177777 
006744 



LET 


CR1)» 


- ORDF 


LET 


IR1)» 


- ODATCNT 


LET 


CRD* 


- 49000, 


LET 


CRD* 


- 05 


LET 


(Rl)* 


• OEND 


LET 


Rl :- OCMOSEQ 


JSR 
LET 


PC. SETUP 
VFYFLG ;B- *1 



LET R5SAVE 



R5 



JSR PC, VFYDAT 
LET R5 j- R5SAVE 

ENDIF 

LET NCNT :- 00 
LET VFYFLG :P- OO 
LET EXPBOT :B» 00 
JSR PC, NEXTU 
ENODO 

LET STREAM :B- <K) 

LET ALLEOT ;B- *0 

LET RPTFLG :B» 01 

LET Rl :- OCMOSEQ 

JSR PC, SETRUi 
LET (Rl) :■ OENO 





JSR PC, 


FXAl.L 




EXIT 


T5T 




.EVEN 




L10035s 


ENOTST 





READ FORWARD COMMAND 

MOV *RDF,(R1)» 
4096 BYTE RECORDS 

MOV 0DATCNT.CR1)* 
9000 ITERATIONS 

MOV 09000., CRD* 
iREAD PATTERN NUMBER 5 

MOV 05, (Rl)* 
TABLE TERMINATOR 

MOV OEND.CRn* 
TOP OF TABLE, AGAIN} 

MOV OCMOSEQ, Rl 
SET UP THE COMMAND TABLE 
ALLOW THE DATA VERIFY 

MOVB 01, VFYFLG 
SAVE R5 

MOV R5.R5SAVE 
GO OFF ANO CHECK READ OPERATIONS 
RESTORE R5 

MOV R5SAVE.R5 

50466$: 
CLEAR RECORD COUNT 

CLR NCNT 
CLEAR VERIFY FLAG 

CLRB VFYFLG 
CLEAR EXPECT BOT FLAG. 

CLRB EXPBOT 
GET NEXT UNIT TO TEST CUUT). 

END OF UUT LOOP 

BR 50461$ 
50462$: 

CLEAR STREAMING FLAG FOR OTHER TESTS. 

CLPB STREAM 
RESET THE UNITS S EOT STATUS 

CLRB ALLEOT 
REQUEST A REPORT 

MOVB 01, RPTFLG 
TOP Of TABLE 

MOV OCMOSEQ, Rl 
STORF THE REWIND COMMANO 
TERMINATOR 

MOV OEND.CRLI 
REUINO ANO REPORT STATUS FOR ALL UNITS 



EXIT TEST 
JUST IN CASE. 



TRAP CtPXIT 
.WORD L 10035 , 



SEQ 0160 



TRAP 



CIETST 
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5485 
5484 
54«5 
5486 
5487 
5488 
5489 
5490 



F13 
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SEQ 0161 



5491 
5492 

5493 

5494 

5495 

5496 
5497 
5498 

5499 

5500 



5501 
5502 



5503 

5504 
5505 

5506 



5507 

5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 

5516 

5517 

5518 



026524 
026524 

026524 
026524 
026532 
026532 
026536 
026536 
026542 
026544 
026544 
026550 
026554 
026560 
026564 
026564 
026570 
026570 
026570 
026570 
026570 
026574 
026576 
026602 
026602 
026604 
026604 
026604 
026610 
026614 
026614 
026620 
026620 
026622 
026624 
026624 
026630 
026632 
026634 
026636 



026642 
026642 
026646 
026652 
026652 
026656 



012702 
005302 

010237 
005137 
004 737 
004737 



020127 
002003 
004737 

000772 



012711 
004737 



005702 
001762 

105237 
0O0240 
000240 
000240 
004737 



105037 
001737 

012711 
004 737 



10000 



003436 
003436 
006700 
006724 



105037 003534 



003632 
025766 



177777 
0O6744 



012701 003542 



003531 



027640 



003531 
00672* 

17 777 ? 
006744 



.SBTTL TEST 4; WRITE COMPATABIUTY/WRITE UTILITY. 



j TEST 



T4;: 



112737 000001 003521 
105037 003520 



TO WRITE RECORDS FROM BUT TO EOT. 
BGNTST 

LET RANDOM :9- 01 

LET EXPBOT :B- 00 

LET R2 :- ODATCNT - 01 

LET LENMSK :■ COMP 32 

JSR P(\bETCH 
JSR Pl'.SETRU 
LET S^AFLG tB- 00 

REPEAT 

WHILE Rl LT OSEQEND DO 



JSR PC.RANWR 
ENOOO 



LET (Rl) : - OEND 

JSR PC.EXAU. 

LET Rl :- OCMDSEQ 

UNTIL R2 NE 00 



LET ALLEOT :B« ALLEOT ♦ 01 

NOP 
NOP 
NOP 
JSR PC.T5WE0T 



LET ALLEOT ;B- 00 

JSR PC.SETRW 
LET (Rl) :- OEND 

JSR PC.EXALL 



j SET THE RANDOM OPERATIONS FLAG. 

MOVB 01, RANDOM 
j CLEAR EXPECT BUT FLAG. 

CLRB EXPBOT 
j SET UP THE RECORD LENGTH MASK. 

MOV 00ATCNT.R2 

DEC R2 
j ALLOW MAXIMUM BUFFER. 

MOV R2.1FNMSK 

COM LENMSK 
}CMD 1 - SET CHARACTERISTIC. 
jCM02-REWIND 
{CLEAR START FLAG 

CLRB STAFLG 
, REPEAT TO EOT. 

50467$: 
j WHILE THERE IS MORE ROOM IN SEQ TABLE: 

50470$: 

CMP Rl.OSEQENO 

BGE 50471$ 

j STORE A WRITE CMC IN SEQUENCE TABLE, 

BR 50470$ 

50471$: 
•STORE END OF SEQUENCE CODE IN TABLE. 

MOV 0EN0,(R1) 

{EXECUTE ALL CMOS IN SEQ TBL ON UNITS. 
lINIT SEQ TBL POINTER, 

MOV 0CM0SEQ.R1 

;REPEAT UNTIL EOT IS REACHED 

TST R2 

BEQ 50467$ 
{SET ALL UNITS 8 EOT FLAG 

INCB ALLEOT 



{WRITE ONE RECORD BEYONO EOT ON ALL UNITS 
{SO THAT SHORTER READ STOP DISTANCE 
{SHALL POSITION HEAD IN CLEAN IUG GAP 
{READ REV THAT EXT3A REC TO RE -POSITION TAPE 
{CLEAR AlL UNITS S EOT FLAG 

CLRB ALLEOT 
{STORE REWINO IN SEQ TBL. 
{STORE END IN SEQ TBL , 

MOV OEND. CHI) 
{EXECUTE REWINO CMD ON ALL UNITS 
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5519 

5520 026662 
026662 
026664 

5521 

5522 

5523 

5524 026666 
026666 
026666 

5525 



104432 
000002 



104401 



L 10036: 



EXIT 

.EVEN 
ENDTST 



TST 



G13 



TRAP 
.WORD 



TRAP 



CIEXIT 
L 10036 



C*ETST 



5EQ 0162 
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HI 3 



SEQ 0163 



55? 7 
5528 
5529 
5530 
5531 
5532 
5533 

5534 026670 
026670 
5535 

5536 026670 
026670 

5537 026676 
026676 

5538 026704 

5539 026710 

5540 026714 
026714 

5541 026720 
026720 

5542 026724 
026724 

5543 026730 
026730 

5544 026734 
026734 

5545 026740 
026740 

5546 026744 
554 7 

5548 
5549 
5550 
5551 
5552 
5553 
5554 

5555 026750 
026 750 

5556 026 754 
026754 

5557 026760 

5558 026764 
026764 

5559 026770 
5560 

5561 026774 
026774 
026776 

5562 

5563 

5564 

556b 02/000 
027000 
027000 



112737 000001 



112737 
C04737 
004737 

105037 

012721 

012721 

012721 

012721 

012711 
004737 



012701 
004737 

012721 
004737 



104432 
000002 



000001 
006700 
006724 

003534 

104001 

01O000 

077777 

000007 

177777 
006744 



105037 003531 



003542 
006724 

177777 
006744 



TEST 5: READ COMPATABILITY/READ UTILITY. 



.SBTTL 

J ♦♦ 

i TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 

I - - 



T5: 



003521 
003520 



BGNTST 

LET RANDOM jB- #1 
LET EXPBOT :B- 01 



JSR 
JSR 
LET 


PCSETCH 
PC.SETRW 
STAFLG :B» 40 


LET 


(Rl)* i- ORDF 


LET 


CRD* :- OOATCNT 


LET 


(Rl)* j- 077777 


LET 


CRD* ;- ORANP 


LET 


CRD :- OENO 



JSR PC.EXALL 

LET ALLEOT :B- ALLEOT ♦ 

LET Rl :■ OCHOSEQ 



01 



LET 


CRD* :■ ORDR 


LET 


(Rl)» :- OOATCNT 


LET 


(Rl)* :- 077777 


LET 


CR1)* t- ORANP 


LET 


(Rl) :- OENO 


JSR 


PC.EXALL 


LET 


ALLEOT :B- 00 


LET 


Rl :■ OCMDSEQ 



JSR PC.SETRW 
LET (Rl)* :■ OEND 



104401 



L10037; 



JSR 
EXIT 

.EVEN 

ENDTST 



PC.EXALL 
TST 



j SET THE RANDOM OPERATIONS FLAG. 

MOVB 01, RANDOM 
I SET EXPECT BOT FLAG. 

MOVB 01. EXPBOT 
jCMD 1 - SET CHARACTERISTIC. 
1CM02-REUIND. 
{CLEAR START FLAG 

CLRB STAFLG 
jCMD3 - READ FORWARD. 

MOV 0RDF,(R1)» 
j SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

MOV OOATCNl ,(R1). 
j SET RECORD COUNT TO MAX FOR WHOLE TAPE, 

MOV 077777, (Rl)* 
{PATTERN - RANDOM. 

MOV ORANP, (Rl)* 
{STORE ENO OF SEQUENCE COOE IN TABLE. 

MOV OtNO.(Rl) 
{EXECUTE ALL CMOS IN SEQ TBL ON AH, UNITS. 
{FLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
iINIT CMO SEQ TBL POINTER. 
{CM01 - READ REVERSE. 

iSET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
{RECORD COUNT » MAX FOR WHOLE TAPE. 
{PATTERN - RANDOM. 

I STORE ENO OF SEQUENCE COOE IN TABLE. 
{GO EXECUTE READ REV. OF ENTIRE TAPE, 
{CLEAR ALL UNITS S EOT FLAG 

CLRB ALLEOT 
{TOP OF COMMAND TABLE 

MOV OCM0SEQ.R1 
{ISSUE A REUINO COMMANO CTWR) 
{TERMINATOR 



MOV 
{ISSUE THE REWIND 



OENO,(R1)* 



TRAP 
.WORD 



CIEXTT 
L1003Y-, 



TRAP 



CSETST 



113 
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SEQ 0164 



5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 

5575 

5576 

5577 

5578 

5579 
5580 

5581 

5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 

5590 

5591 

5592 
5595 
5594 
5595 



5596 
5597 
5598 

5599 
5600 
5601 
5602 

5603 
5604 

5605 

5606 



027002 
027002 

027002 
027002 
027006 
027006 
02 7014 
027014 
027022 
027026 
027026 
027034 
027034 
027040 
027044 
027050 
027054 
027060 
027064 
027070 
027074 
027074 
027100 
027100 
027104 
027104 



027110 
027110 
027110 
027114 
027116 
027122 
027126 
027130 
027130 
027134 
027140 
027144 
02/146 
027146 
027152 
027154 
02/154 
02716O 
02/160 
02 V 164 



012702 
004737 
004737 
004737 
004737 
004737 
004 737 
004737 

005037 

105037 

012701 

000000 



021127 
001002 
000137 
022711 
001024 

062701 
012137 
022137 
001003 

062701 
000756 



027616 
027616 
027616 
027616 
027616 
02/616 
027616 

003450 

003534 

003542 



177777 

027560 
000040 



000002 
003452 
003450 



000002 



00523/ 003450 



.SBTTL TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE 



$ TEST 
I -- 



T6;j 



TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE, 



105037 003521 

112737 000001 003520 

113737 002213 003526 

0O4737 006700 

013737 002220 003544 



BGNTST 

LET RANDOM ;B- 00 
LET EXPBOT :B- 01 
LET IRE :R» PIRE 



JSR PC.SETCH 
LET CMDSEQ*2 



CHAR 



LET R2 



OCMOD 



JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 


JSR 


PC, 


.PTCMOS 



LET JLOOP :- 00 
LET STAFLG jB- 00 
LET Rl •- OCMOSEQ 



I CLEAR RAMDOM MODE FLAG. 

CLRB RANDOM 
jSET EXPECT BOT FLAG, 

MOVB 01, EXPBOT 
{MOVE INHIBIT RFC ERROR REPORT FLAG. 

MOVB PIRE, IRE 
jCMD 1 - SET CHARACTERISTIC. 
I MOVE CHAR CODE FROM P TBL TO SEQ TBI.. 

MOV CHAR.CMOSEQ+2 
jR2 POINTS TO CM02 IN SOFT P TABLE. 

MOV OCMOD, R2 
j MOVE CMC 2 FROM P TBL TO SEQ TBL. 
j MOVE CMO 3 FROM P TBL TO SEQ TBL. 
j MOVE CMO 4 FROM P TBL TO SEQ TBL. 
j MOVE CMO 5 FROM P TBL TO SEQ TBL, 
j MOVE CMO 6 FROM P TBL TO SEQ TBL, 
(MOVE CMO 7 FROM P TBL TO SEQ TBL. 
j MOVE END CMO FROM P TBL TO SEQ TBL. 
l CLEAR JMP CMO LOOP COUNT. 

CLR JLOOP 
jCLEAR START FLAG 

CLRB STAFLG 
lINIT SEQUENCE TABLE POINTER. 

MOV OCMOSEQ, Rl 



•BRJMP' 

3$; 



'0 



jENABLE JMP SUBSTITUTION FOR BR, IF NECESSARY. 



012701 
005337 



003542 
Q03452 



Hi 



2?J 



WHILE CRD NE OEND DO 



CMP JMP. C, CRD 

BNE 6$ 

LET Rl j* Rl * 02 

MOV (HDt.JLOC 
CMP CRD*, JLOOP 
BNE 1$ 

LET Rl :« Rl * 02 

BR 31 

LET JLOOP j- JLOOP ♦ 01 

LET Rl :- OCMDStU 
DEC JLUC 



CRD, Of.ND 
. *6 
504/35 



02. Rl 



I WHILE THERE ARE CMOS LEFT IN SEQUENCE TBLE 

504 72$: 

CMP 

BNE 

JMP 
I IS THIS A JUMP CMO? 
I BR IF NOT. 
i POINT TO BRF, 

AOO 
(SAVE BRF (LOCATION). 
jHAS LOOP COUNT BE SATISFIED? 
I IF NOT, JMP AGAIN, 
j IF SO, ADJUST SEQ POUNTER 

ADD 02. Rl 
j AND GO TO NEXT COMMANO. 
iUPDATE THE LOOP COUNT. 

INC JLOOP 
lINIT CMO SEQ TABLE POINTER. 

MOV OCMOSEQ, Rl 
lUfcCR LOCATION COUNTER % 



J13 
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5607 


027170 


001747 




5608 


027172 








027172 


062701 


000010 


5609 


027176 


000772 




5610 


027200 


022711 


000020 


5611 


027204 


001026 




5612 


027206 








027206 


062701 


000004 


5613 


027212 








027212 


011137 


003446 


5614 


027216 








027216 


012727 


000012 




027222 


000000 






02 7224 


013727 


002116 




027230 


000000 






027232 


005367 


177772 




027236 


001375 






027240 


005367 


177756 




027244 


001367 




5615 


027246 


005337 


003446 


5616 


027252 


001361 




5617 


027254 








027254 


062701 


000004 


5613 


027260 


000713 




5619 


027262 


004737 


007706 


5620 


027266 
027266 








027266 


023737 


003420 003422 




027274 


002402 






027276 


000137 


027550 


5621 


027302 


004 737 


007600 


5622 


027306 


004737 


007240 


5623 


027312 








027312 


023727 


003426 100017 




027320 


001402 






027322 


000137 


027332 


5624 


027326 


004737 


017624 


5625 


027332 

027332 






5626 


027332 


004737 


017706 


5627 


027336 








027336 


012702 


000001 


5628 


027342 


004737 


017300 


5629 


02 7346 
027346 








027346 


026527 


002536 177777 




027354 


001002 






027356 


000137 


027454 


5630 


027362 








027362 


032737 


000400 003426 




027370 


001002 






027372 


OC0137 


027420 


5631 


027376 








027376 


032765 


000002 003506 




027404 


001402 






027406 


000137 


027414 


5632 


027412 







6$ 



BEQ 3$ 

LET Rl :■ Rl * 010 

BR 2$ 

CMP <>DLY,C,CR1) 
BNE 4$ 
LET Rl :« Rl 



7$ 



LET TIME2 
DELAY 10. 



♦ #4 
CRD 



DEC 1 IME2 
BNE '* 
LET Rl j- Rl 



04 



4$ 



BR 3$ 

JSR PC, SETUP 

WHILE NCNT LT NCNTl DO 



JSR PCCMOAC 
JSR PC.EXSUB 
IF CMDWRD EQ OGES THEN 



JSR PC.PRXST 
ENOIF 



SEQ 016 



^ 



l IF THIS IS THE RIGHT LOCATION TO JMP TO, GO SET UP 
i IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 

ADD #10, Rl 

{DO IT AGAIN. 
i DELAY? 
j BR IF NOT. 
jRl - LOCATION OF N COUNT. 

ADD 04.R1 

jSAVL ; N COUNT. 

MOV CR1),TIME2 

jGO TO SUPER-WAIT 1 MSEC, 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



010. .(PC)* 



LIDLY,(PC)» 



-6CPC) 

. -4 

-22CPC) 

.-20 



{POINT TO NEXT CMD. 

ADD 04, Rl 

;G0 CHECK NEXT CMD. 
;G0 SETUP 1HE COMMAND BLOCK. 
jWHILE THERE ARE RECORDS REMAINING: 

504/4$; 

CMP NCNT, NCNTl 

BIT . *6 

JMP 50475* 

j STORE CMO ASCII .• N ERROR MSG . 
{ISSUE CMO TO ALL, AWAIT INTS.CHECK STATUS. 
I IF CMO IS GET STATUS THEN: 

CMP CMDWRD, OGES 

BEQ .v6 

JMP 504 76* 
{PRINT EXTENOED STATUS REGISTERS. 



JSR PC.CKHAF 
LET R2 t- 01 

JSR PC.FIRSTU 



504 76$: 
{CHECK HALT AFTER EACH CMO FLAG. 
{SET ALL UNITS AT BOT/EOT. 

MOV 01, R2 

jFTNO FIRST UNIT. 
WHILE DEVTBH.R5) NE OEND DO ; WHILE THERE ARE MORE UNITS: 

504 77$: 

CMP DEVTBL(R5),0END 

BNE . .6 

JMP 50500$ 

IF OMOD.CO SETIN CMDWRD THEN * IF CMO IS REVERSE THEN: 

BIT OMOO. CO, CMDWRD 

BNE . *6 

JMP 50501 * 

IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN j IF NOT AT HOT THtN: 

HI! •XO.BOI.F.OTH.lURS) 

BEQ . »6 

JMP 50502 J 

LET R2 { - OC {CLEAR fcUT/BOT FLAG. 
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5653 
5634 

5635 



5636 
5637 

5638 

5639 

5640 
5641 



5642 

5643 

5644 
5645 



5646 
5647 

5648 



5649 
5650 
5651 
565? 
5653 

5654 
5655 
5656 



02741? 
027414 
027414 
027414 
027414 
027420 
027420 
027420 
027426 
027430 
027436 
027440 
027444 

027444 
027444 
027446 
027446 
027446 
027446 
027446 
027452 
027452 
027454 
027454 
027454 
027460 
027462 
027466 
027466 
027474 
027500 
027500 
027504 
027504 
02 7512 
027514 
027520 
027524 
027524 
027524 
027524 
02 7530 
02/530 
027530 
02/534 
027534 
027534 
02/534 
02/540 
02/540 
02/546 
027546 
02/550 
02/550 
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005002 



000137 027446 



032765 000001 003506 

001406 

03273/ 000001 003426 

001402 

000137 027446 



005002 

004737 017346 
000735 



020227 000001 

001402 

000137 027530 

013737 003420 003422 

005237 003422 

105237 003531 



45 PAGE 112-2 
SEQUENCE, 



SEQ 0166 



023/27 
001402 
000137 
004737 



0034 34 000002 

027524 
027640 



000137 027534 

105037 003531 

005237 003420 

013737 003426 003432 

000647 

004737 016142 



ENDIF 
ELSE 



CLR 



R2 



50502$: 
{ELSE IF CMD IS NOT REVERSE; 

JMP 50503* 
50501$: 
IF 0X0. EOT NOTSETIN EOTFLG(RS) OR OCMD,CO NOTSETIN CMOWRD THEN 

BIT OXO.EOT.EOTrLGCRS) 
BEQ 505041 
BIT OCMD. CO, CMDWRD 
BEQ . *6 
JMP 50505$ 
50504$: 
ilF NOT AT EOT OR NOT A MOTION CMD THEN: 
{CLEAR EOT/BOT FLAG. 
CLR 



LET R2 :- 00 

ENOIF 
ENDIF 



R2 



JSR PC.NEXTU 
ENDDO 



j FIND NEXT UNIT 



50505$ 
50503$ 



504 77$ 



BR 

50500$: 
j IF ALL UNIT ARE AT EOT/BOT THEN: 

CMP R2.01 

BEQ . *6 

JMP 50506$ 
j FORCE TERMINATION OF COMMANO. 

MOV NCNT, NCNT 1 

INC NCNTX 
LET ALLEOT :B- ALLEOT ♦ 01 iFl.AG AIL UNITS AT EOT/BOT TO ALLOW VERIFY OF DATA 

INCB ALLEOT 
jWHEN WRITING IS CURRENT COMHANO 

CMP CM0LG.02 

BEQ . .6 

JMP 5050/$ 
jGO WRITE/READ REV ONE RECORD BEYOND EOT 



IF R2 EQ 01 THEN 



LET NCNTl ;- NCNT ♦ 01 



IF CMDLG EQ 02 THEN 



JSR PC.T5WE0T 
ENDIF 



ELSE 



50507$ 



JMP 

50506$ 
LET ALLEOT :B- 00 {WHEN NOT ALL OEOT, CLEAR FLAG 

CLRB 



50510$ 
ALLEOT 



ENDIF 

LET NCNT : 
LET PCMDWD 
ENDOO 



NCNT * 01 
- CMDWRD 



JSR PC.VFYDAT 



50510$: 
1 UPDATE RECORD COUNT, 

INC NCNT 
jSAVE PREVIOUS COMMAND WORD. 

MOV CMDWRD, PCMDWD 

BR 504 74$ 

504/5$ : 
(If t AST CMD WAS A WRITE VERIFi, 1 HEN bU 
I VERIFY THE LAST N RECORDS UF DATA. 
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5657 02 7554 
027554 
027560 

5658 

5659 

5660 027560 
027560 

5661 027564 
02 7564 

5662 027572 
0275/2 

5663 027576 

5664 027602 
027602 

5665 027606 
5666 

5667 

5668 027612 
02/612 
027614 

5669 



000137 027110 



177777 

105037 

112737 

012701 
004737 

012711 
004737 



1044 52 
000130 



003531 

000001 

003542 
006724 

17/777 
006744 



ENDDO 



JMP 50472$ 
50473*: 



003523 



SBRJMP--1 ; TURN OFF JMP SUBSTITUTION CSPMACJ CONTROL, ONLY). 
LET ALLEOT :B- #0 { NOT AT EOT 

CLRB ALLEOT 
LET RPTFLG :B- #1 (REQUEST A REPORT 

M0V8 #1, RPTFLG 
LET Rl j- OCMDSEQ (SET UP THE COMMAND TABLE ADDRESS 

MOV 
j STORE REWIND COMMAND 
{TERMINATE THE TABLE 

MOV 
JSR PC.EXALL {ISSUE THE REWINDS 



vJSR PC.SETRU 
LET (Rt) :- OEND 



4CMDSEQ.R1 
OtND.CRl) 



EXIT 



TST 



TRAP 
.WORD 



CSEXIT 
L10040-. 



SEQ 0167 



M13 
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5673 
5674 
5675 
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5676 
567 7 
5678 
5679 



5680 
5681 
568? 
5683 

5684 

5685 
5686 
5687 
5688 
566<> 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 

5698 

5699 

5700 

5701 

570? 

5703 
5704 
5 /05 
5706 
5/0 7 
5708 



5/09 



027616 
027616 
0276J>0 

027622 
027624 
027624 
027630 
027630 
027632 
027632 
027634 
027634 
027636 



027640 
02/642 
02/644 
027650 

02/654 
027654 
02/662 
027662 
02/670 
02/670 
027676 
027676 
027 704 
027/12 
027/12 
027720 
02 //20 
027726 
027732 
027736 
027742 

027744 
02 7744 
027 744 
027746 



012203 
005303 
006303 

016321 

012221 



012221 
000207 



000240 
000240 
004 737 
004737 



013737 

01273/ 

01273/ 

013/37 
042737 



013737 
004737 
004 737 
004 737 
000207 



104401 



003644 



007240 
017706 



003426 

104401 

000004 

003426 
004000 



013737 002314 



003416 
007600 
007240 
017706 



00343? 

003426 

003434 

002314 
002314 

003430 

002316 



SWJUnUTINF. TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 

the command sequence table. 

input',: r? • pointer to soft "p" table 

output:;: 

registers: r3. 

CALLS: 



PTCMDS: LET R3 :- (R2)* - 01 SHIFT fl ;R3 ■ COMMAND TABLE INDEX. 



T5WE0T? 



L10040: 



LET CRD* 
LET CRD* 
LET (Rl)f 
LET (Rl)» 
RTS PC 



« CMDTBLCR3) 

• (R.?)» 

- (R2)f 

- CR2)* 



MOV 

DEC 

ASL 
{MOVE COMMAND WORD. 

MOV 
j 10VE OF BYTES. 

MOV 
j MOVE 4 OF OPERATIONS, 

MOV 
{MOVE PATTERN CODE. 

MOV 



(R2)*.R3 

R3 

R3 

cmotbl(r;5).crd* 

(tt?)*,(Rl)* 

(Rf?)#,(Rn* 

(R?)» V (R1)» 



SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



CMDACEXSUB.CKHAE 



NOP 

NOP 

JSR PC.tXSUB 

JSR PC.CKHAE 



let pcmowd 
le; cmowrd 



CMOWRO 
ORDR 



LET CMDLG •« 04 



j WRITE ONE RECORD BEYOND LOT 
j SO THAT READ SH3RTER STOP DISTANCE 
{SHALL POSITION HEAD IN CLEAN IRG GAf 
{REPOSITION TAPE 

MOV 
{BEFORE EXTRA RECORD 

MOV 
{BY READING REVERSE 

MOV 
LET CMDPKT t- CMDWRD CLR.BY OBRF.C 

MOV 
HIC 
LET CMDSAV :- CMDPKT {THAT RECORD 10 ALLOW 

MOV 
LET CMDPKT*CP.ADL :- OATARO jNFXT COMMANO IN THE 

MOV 
JSR PC.CMDAC {TABLE TO BE EXECUTED 

JSR PC.EXSUB 
JSR PC.CKHAE 
RTS PC 
.EVEN 
ENDTST 



SEU 0168 



CMDWRD. PCMOWD 

ORDR. CMOWRD 

#4,CM0l.G 

CMOWRO, CMDPKT 
OBRF.C.CMOPKT 

CMOPKT. CMDSAV 

DATARl),CMDPKT*CP.ADL 



ENUMOO 



1RAP 
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SEQ 0169 



5712 
5723 

5724 
5753 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 



5746 
5752 



5753 



5 /54 
5 755 

5756 
5763 

5764 
5765 
5766 
5767 
5768 
5769 



027746 



027746 
027746 
027750 

02/750 

027750 
027752 
027754 
027756 
027 760 
027760 
027762 
027764 
02 7766 
027770 

027772 
027772 



027 7 74 
030011 



030020 
0300*0 



000024 



000031 

027774 
160002 
177564 

001032 
030011 

000777 
000060 
000776 



013004 



124 



.TITLE PARAMFTFR CODING 

.SBVTL HARDWARE PARAMETER COOING SECTION 
BGNMOD 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



BGNHRU 



L$HARDjj 



WORD 1.10041 -L5HARD/2 



GPRMA TS4ADR ,0,0, 160002 , 177564 , YES 



GPRMD TS4VCT ,2,0. 777.60, 776, YES 



UORD 


T$CODE 


WORO 


TS4A0R 


WORD 


TSLOLIM 


WORD 


TJHILTM 


WORD 


t;code 


WORD 


TS4VCT 


WORD 


777 


WORD 


TJLOl.IM 


WORD 


T$HILIM 



EXI1 HRD 



WORD T$CODE 



123 
105 



123 
103 



TS4ADR: 
TS4VCT; 



.Nl.TST 

.ASCI/ 

.ASCI/ 

.LIST 

.EVEN 

BNCHRI) 



BEX 

/TSSR ADDRESS/ 

/VECTOR/ 

BEX 



L 10041: 



♦ EVEN 



B 1 4 
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5772 
5773 
5/74 
5775 

5/76 

57 7/ 
5778 
5779 
5/80 
5/81 

5 7o^ 

5 783 



21-MAR-84 16*45 PAGE 116 



SEQ 01/0 



5 784 

57<n 

5792 



5793 
5794 

5795 

5 796 

5797 
5798 

5799 

5800 

5801 



5802 
56G5 



030020 
030020 
030022 



030022 
030022 
030024 
030026 
030030 
030030 
030032 
030054 
030036 
030056 
030040 
030042 
030044 
030O44 
030046 
030050 
030052 
030052 
030054 
03OO56 
030060 
030060 
030062 
030O62 
030064 
050066 
050070 
0300 70 
03OO72 
0300 74 
050076 
030076 
030100 
030102 
030104 
0301O4 
050106 
050110 

030112 
GiOlU* 



000U51 



000130 
030600 
000001 

000150 
030617 
000400 

001150 
030646 

000001 

001150 
0506 72 
OOO400 

002150 
050714 
000001 

004024 

002150 
050735 
000400 

OO5150 
050762 
000001 

005130 
031005 
0OO400 

OO4 130 
031040 
OOOOOl 



QQ5UQ 



.SBTTL SOFTWARE PARAMETER COOING SECTION 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BT THE SUPERVISOR TO BUILD P TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACR05 ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



B^NSFT 
LISOFTj j 

GPRML CLRM.Oa.YES 

GPRML RRVM ,0,400, YES 

GPRML MAEM,?, 1. ft. S 

GPRML RC VERM , 2 , 400 , 1 ' ■ *i 

GPRML IR£CH a 4,l a YEb 

XFfcRT NfXTSP 

GPRML BADTM, 4, 400, YES 

NtXTSPi GPRML DINTM,6 ( l,YES 

GPRMl IRtM, fe, 400, YfcS 

dPRMl RAMM, 10,1, YES 

GPRML CUPT.UMilES 



.WORD I 10042 -LI SOFT /2 



.WORD 
.WORD 
,WORD 


TICOOE 

Cl.RM 
1 


.WORD 
.WORD 
.WORD 


TICOOE 

RRVM 
400 


.WORD 
.WORD 

.WORD 


TICOOE 
MAEM 

1 


.WORD 
.WORO 
.WORD 


TICOOE 
RCVERM 
400 


OOO 


TICOOE 

IRECM 

1 


.WORD 


TICOOt 


.WORD 
.WORD 
.WORD 


TICOOE 

BADTM 

400 


ooo 


TICOOE 
DINTM 

1 


ooo 


11 CODE 

IRtM 
400 


.WORD 
.WORD 

.WORD 


TICOOE 
R4MM 

1 



»kORD UCUUt 



PARAMO TER COO INC, MACRO Ml 200 
SOFTWARE PARAMETER CODING SECTION 
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5804 

5805 
5806 



5807 



5808 



5809 



5810 



.811 



5812 



5813 



5&14 



030114 

030116 
030120 
030120 
030122 
030124 
030126 
030126 
030130 
030130 
030132 
030134 
030136 
030140 
030142 
030142 
030144 
030146 
030150 
050152 
0301S4 
030154 
030156 
030160 
030162 
030164 
030166 
030166 
0301 70 
030172 

0301 74 
030176 
0302OO 
0302O0 
030202 
0302O4 
0502O6 
030210 
030212 
030212 
030214 
030216 
030220 
030222 
i> < -0224 
o<0224 
030226 

0302 30 
302 52 
030254 
030236 
030236 
030240 

030242 
030244 
30246 
050J50 



031064 
OOOOO 1 

005130 
031122 
0OO40O 

12 7044 

006032 
031141 
0O0377 
OOOOOO 
0O07 77 

007052 
031166 
OOO037 
OOOOOl 
0O0053 

010052 
031174 
17/777 
OOOOOl 
010OO0 

011052 
031206 
17 7 7 7 7 
OOOOOl 
07 7777 

012052 
031226 
OOOCW 
OOOOOO 

0OO010 

013052 
031240 
00003 7 
OOOOOl 
0O0033 

014052 
031174 
1 7/777 
OOOOCl 
01OOO0 

O 15052 

031206 

17 7 7// 

OOOOOl 
0/7777 



CiPRMl CHGM, 12,400, YES 

xrrRr enospi 

GPRMO CHARM, 14,0,5/7,0, /77,YfcS 



UPRMO CM02M , 16 , D , 3 7 , 1 , 33 , Yfc 5 



CiPRMO 0PCRM.2O.D, - 1 , 1 .DATCNT , YES 



UPRMO NUM6M, 22,0, -1,1, 777/7, YES 



GPRMO PATTM,24,0,W,0 I 10^ES 



GPRMO CM03M, 26, 0,37,1,33, YES 



GPRMO BPCPM.30.D, - 1 , 1 , DATCNT , YES 



GPRMO NUHfcM, 32,0, 1 . 1 , 777/7 , YES 



GPRMO WUTM, 34,0, 1 7 ,0,10* 1L& 







SF.Q 01/1 


.WORD 
.WORD 


tWPT 

1 




.WORD 
.WORD 
.WORD 


TICODE 

CHGM 

400 




.WORD 


TICOOE 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TICODE 

CHARM 

377 

TILOLIM 

TIHILIM 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TICOOE 

CM02M 

37 

TILOLIM 

TIHILIM 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TICOOE 

BPCRM 

1 
TILOLIM 
TIHTLIM 




.WORD 
.WORD 
.WORD 
.WORO 
.WORD 


Ticooe 

1 
TILOLIM 
TIHILIM 




.WORD 
.WORD 
.WORO 
.WORD 
.WORD 


TICOOE 

PATTM 
17 

TILOLIM 
TIHILIM 




.WORD 
.WORO 

.WORD 
.WORD 
.WORD 


TICOOE 

CM03M 

37 

Til 01 IM 

TIHUIM 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TICOOE 
BPCRM 

1 
T 11.01 IM 
TIHH IM 




,WOR0 
.WORD 
.WORD 
.WORD 
*WORQ 


TICOOE 
NvnjM 

1 
Til 01 IM 

TIHILIM 
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5815 



5816 



5817 



5818 



5619 



5820 



5821 



S«.tt 



5823 
5*24 



050250 

03025? 

030254 

030256 

030260 

030262 

030262 

030264 

030266 

05C2/0 

0302 .V 

0502/4 

0302 74 

0302 76 

30500 

030302 

030504 

030506 

50506 

030510 

050512 

030514 

050516 

050520 

030520 

050522 

050324 

030526 

050330 

030352 

030552 

030554 

030556 

030540 

05C542 

030544 

030544 

050546 

050550 

050552 

050554 

050556 

050556 

050560 

050562 

050 564 

050566 

0305/0 

0305/0 

0305/2 

0305/4 

050376 

030400 

030402 

030402 

030404 

050404 



016052 
051226 
0OO01/ 

oooooo 

000010 

017052 
051246 
00003/ 
000001 
000053 

0200S2 

051174 

i ; / / / / 

OOOOOl 
010000 

021052 
051206 
177777 
OOOOOl 

077777 

022052 
051226 
OOOOl / 

oooooo 
ooooio 

025052 
051254 
00005/ 
"^OOOOl 
000035 

024052 
0511/4 

177777 
OOOOOl 
010000 

025052 
051206 
17 7 7 7/ 
OOOOOl 
07777/ 

026052 
051226 
000017 
OOOOOO 
000010 

002004 
075004 



GPRMD CMD4M, 56 , , 37 , X , 33 » YfcS 



GPRMO UPCRM,40,D, - 1 , 1 .DATCNT , YES 



GPRMO NUMBM,42,D, -1, 1,77777, YES 



GPRMO PATTM,44,D,17,0,10,YES 



GPRMO CMD5M, 46, 0,37 ,1,33, YES 



GPRMO BPCRM,50,D, - 1 , 1 .OATCNT , YES 



GPRMO NUM8M.52.0, - 1 , 1 , 777 77, YfcS 



GPRMO PAlTM, 54, 0,17,0, 10, YtS 



XKF'R LNDSP2 
ENOSPli XKtR ENDS** 







SEQ 0172 


.WORD 


TICOOE 




.WORO 


PATTM 




.WORD 


17 




.WORD 


TILOLIM 




.WORD 


TIHILIM 




.WORD 


TlCODE 




.WORD 


CM04M 




.WORD 


3/ 




.WORD 


TILOl IM 




.WORD 


TIHIl IM 




.WORD 


TICOOE 




.WORD 


8PCRM 




.WORD 


• 1 




.WORD 


TILOLIM 




.WORD 


TIHIL IM 




.WORD 


TICOOE 




.WORD 


NK.JMBM 




.WORD 


,\ 




.WORD 


.'ILOl.IM 




.WORD 


TlHU IM 




.WORD 


TICOOE 




.WORD 


PATTM 




.WORD 


17 




.WORD 


TILOLIM 




.WORD 


TIHILIM 




.WORD 


TICOOE 




.WORD 


CM05M 




.WORD 


3/ 




.WORD 


TILOLIM 




.WORD 


TIHIL.IM 




.WORD 


TICOOE 




.WORD 


BPCRM 




.WORD 


I 




.WORD 


TILOLIM 




.WORD 


TIHIl IM 




.WORD 


TICOOE 




.WORO 


NUMBM 




.WORD 


-1 




.WORD 


T ILULIM 




.WORD 


TIHIl IM 




.WORD 


TICOOE 




,WOR0 


PATTM 




, WORO 


1 ■' 




.WORD 


TILOLIM 




.WORD 


TIHIl IM 




.WORD 


TICIKH 




.WORD 


TICUOE. 
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5825 



5826 



5827 



5828 



5829 



5830 



5831 



5832 



5833 



UiS4 



030406 

030406 

030410 

030412 

030414 

030416 

030420 

030420 

050422 

030424 

030426 

030430 

030432 

0304 32 

0304 34 

030436 

030440 

030442 

030444 

030444 

030446 

050450 

030452 

030454 

050456 

030456 

030460 

030462 

030464 

030466 

0304 70 

0304/0 

0304/2 

030474 

0304/6 

050500 

030502 

030502 

030504 

050506 

030510 

030512 

030514 

030514 

050516 

050520 

050522 

050524 

050526 

050526 

050530 

050532 

050554 

030536 

030540 

030540 

030542 



031262 
00O057 
000001 
000055 

030052 
031174 
17 7 7 77 
000001 
010000 

031052 
031206 
177777 
000001 
0777/7 

032052 
031226 
00001/ 
000000 
000010 

033052 

031270 
00005/ 
0OOO01 
000033 

054052 
0311/4 
177777 
OOOOOl 
010000 

035052 

031206 
177/77 
OOOOOl 
077777 

036052 
031226 
00O01Z 
000000 
OOOO10 

03/052 
0312/6 
000037 
OOOOOl 
000035 

040052 
0311/4 



EN0SP2! GPRMD CMD6H f 56,D, 37, 1 ,33, YES 



GPRMD BPCRM, 60, D,-1,1,DATCNT, YES 



GPRMD NUMBM , 62 , D , - 1 , 1 , 777 77 , YES 



GPRMD PATTM,64,D,17,0,10,YES 



GPRMD CMD7M, 66 , D , 37 ,1 , 33 , YES 



GPRMD BPCRM , 70 , , - 1 , 1 , UATCNT , YES 



GPRMD NUMBM, 72,0, 1,1,77777, TtS 



GPRMD PAT TM, 74, 0,17, 0,10, YES 



GPRMD CM08M ,76,0,37,1, 33 , YES 



GPRMO UPCRM,XOO,0,-i,l,0AlCNt,Vtb 







SEQ 0173 


.WORD 


TICOOE 




.WORD 


CMD6M 




.WORD 


37 




.WORD 


TILOLIM 




• WORD 


TIHILIM 




.WORD 


TICOOE 




.WOHD 


BPCRM 




.WORD 


1 




.WORD 


TILOLIM 




.WORD 


TIHILIM 




.WORD 


TICODE 




.WORD 


NUM8M 




.WORD 


1 




.WORD 


TILOLIM 




,WORD 


TSHIl tM 




.WORD 


TICODE 




.WORD 


PATTM 




.WORD 


1/ 




.WORD 


TILOLIM 




.WORD 


TIHILIM 




.WORD 


TICOOE 




.WORD 


CM07M 




.WORD 


37 




.WORD 


TILOLIM 




.WORD 


TIHILIM 




.WORD 


TICOOE 




.WORD 


BPCRM 




.WORD 


1 




.WORD 


TIL01.IM 




.WORD 


TiHlL IM 




. JORD 


TICOOE 




.WORD 


NUMBM 




.WORD 


I 




.WORD 


TILOLIM 




.WORD 


TlHTl IM 




.WORD 


TICOOE 




.WORD 


PATTM 




.WORD 


1/ 




.WORD 


TILOLIM 




.WORD 


TIHIL IM 




.WORD 


11 CODE 




.WORD 


CM08M 




. WORD 


5/ 




. WORD 


TILOI IM 




.WORD 


TSHIl IM 




.WORD 


TICOOE. 




»WORD 


BPCRM 





14 
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5835 



5836 



583 7 
5838 



030544 
030546 
030550 
030552 
030552 
030554 
030556 
030560 
03056? 
030564 
030564 
030566 
030570 
0305 72 
030574 
030576 
030576 
030576 



177777 
OOOOOl 
010000 

041052 
031206 
177777 
OOOOOl 
077777 

042052 
031226 
0000 w 
000000 
OOOOIO 



120004 



GPRMD NUMBM , 102 , D , - 1 , 1 , 77777 , YfcS 



GPRMO PATTM,104,D,17 # 0,10,YES 



ENDSPj 



.WORD 

.WORD 
.UORO 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



XFER JMPMSG 



I 
TtLOLIM 
TIHII TM 

TfCODF. 
NUMBM 

-1 

TILOLIM 

TJHILTM 

TiCODF 

PATTM 

1/ 

T$L OL.IM 

T$HIl,IM 



SEU 0174 



.WORD TJCODfc 
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G14 



SEQ 0175 



5840 
564 7 
5848 
5849 
5850 
5851 
5852 
585.5 
5854 
5855 
5856 
585/ 
5858 
5859 

5860 



5861 



5862 



5863 



5864 
5865 

5866 



050600 
030617 
030646 
03067? 
030714 
030735 
030/62 
0310C5 



031036 
031036 
031036 
031040 
031043 
031046 
031051 
031054 
031057 
03106? 
031064 
031067 
03107? 
0310/5 
031100 
031103 
031106 
031.111 
031114 
031117 
03112? 
031125 
031130 
031133 
031136 
031141 
031144 
03114/ 
031152 
031155 
031160 
031163 
031166 

0311 n 

031174 
03117/ 

03120? 
031205 
031206 
031211 

031214 
03121/ 
03122? 

031225 



5667 031226 



103 
122 
110 
120 
111 
102 
104 
111 



100004 
103 
124 
114 
122 
101 
104 
120 
105 
102 
040 
122 
040 
122 
116 
115 
123 
105 
103 
116 
040 
104 
105 
103 
122 
124 
111 
111 
040 
104 
103 
05/ 
102 
040 
125 
000 
04 3 
106 
120 
101 
117 
000 
120 



114 
105 
101 
122 
116 
101 
111 
116 



i:> 

122 
12.4 

0.0 
! I.5 
I*" 
000 
116 
114 
105 
114 
127 
116 
107 
105 
101 
123 
110 
10/ 
103 
040 
121 
110 
101 
105 
123 
103 
103 
105 
115 
062 
1? J 
103 
116 

040 
040 

105 
124 
116 

101 



105 
123 
114 
111 
110 
104 
123 
110 



.NLIST BEX 

CLRM; .ASCIZ /CLEAR COUNTERS/ 

RRVMj .ASCIZ /RESET RANDOM VARIABLES/ 

HAEM; .ASCIZ /HALT AFTER EACH CMD/ 

RCVERM? .ASCIZ /PRINT SOFT ERRORS/ 

IRECM: .ASCIZ /INHIBIT RECOVERY/ 

BADTMj .ASCIZ /BAD TAPE SPOT DETECT/ 

DINTM: .ASCIZ /DISABLE INTERRUPTS/ 

IREM: .ASCIZ /INHIBIT RFC ERROR REPunT/ 

.LIST BEX 

.EVEN 
JMPMSGt 

XFER JMPMS2 

RAMM; .ASCIZ /CONTROLLER RAM DUMP/ 



.WORD T SCOUfc 



EWPT; .ASCIZ /ENABLE EARLY WARNING MESSAGES/ 



CHGM: 



.ASCIZ /CHANGE CMD SEQ/ 



1J7 
105 
122 
040 
115 

101 
105 
101 
17\ 

IvJl 

111 

040 
123 
10 7 
000 
101 
105 
115 
123 
000 
101 
103 
122 
124 
123 
117 
000 
104 
000 
106 
117 
124 

11/ 

11/ 
122 

HI 
123 



124 PATTMt . ASCIZ /PATTERN/ 



CHARM* .ASCIZ /CHARACTERISTICS CODE/ 



CM02M: 
BPCRMj 



.ASCIZ "CMD/?" 
.ASCIZ /BRF COUNT/ 



NUMBM} .ASCIZ /Q OF OPERATIONS/ 
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1 



4 



vu;i 



5868 
5869 

5870 
5871 

5872 

5875 
5874 
5875 
58/6 
587 7 
5878 
58 79 
5880 
5881 



568? 
5885 
5884 
5885 
5886 
5887 
588R 
5889 
5890 
5891 



5892 



031231 
031234 



031236 
031236 
031236 



031240 

031246 
031254 
031262 

031270 
031276 

031304 

031304 



031304 



031504 

031504 

031506 
031510 
03ir 



124 
116 



023004 



'.03 
103 
i03 
103 
103 
103 



031520 
000004 



105 
000 



122 



115 
115 
115 
115 
115 
115 



SEQ 0176 



JMPMS2: 



104 CM03M 

104 CM04M 

104 CM05M 

104 CM06M 

104 CM07M 

104 CM08M 



L 10042 



.LIST 
.EVEN 

EXIT SET 



BEX 



WORD TfCODE 



.NLIST 
ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.LIST 
ENDSFT 



BEX 

"CMO/3" 

"CrtO/4" 

"CMD/5" 

•*Cr10/6" 

"CMO/7" 

"CMO/8" 

BEX 



EVEN 



; PATCH AREA 
PATCH: j .BLKW 64. 

;++*+*+**++++*+**++*+**+******+**♦******#+**♦***•***♦*********+*****♦*** 



LASTAD 



LtLASTti 



.EVEN 

.WORD TUREC 

.WORD TfSUE 



ENOMOD 



PARAMETER CODINl 


i 


HARD CODED P-TBl 




5894 






5895 






5896 






5897 






5898 






5899 






5900 


031510 




5901 


031510 






0.< IS 10 


000000 




031. >l2 


00000c? 




031514 




5902 


031514 


17252? 


5903 


031516 


000234 


5904 


031520 
031520 




5905 


031520 




590b 
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.SBTTL HARD CODED P-TBL 



114 



SfcU 0177 



jOIAU IS PRE-PAHAMETERIZED PER TBL 



BGN5ETUP X 
BGNPTAB 



M0043: 



L 10045; 



,WORD 

.WORD L10045-./2-1 



172522 

224 

ENDPTAH 

ENDSETUP 



5907 



000001 



.END 



PARAMETER CODING 
SYMBOL TABL E 
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J 14 



SEQ 0178 



ACK.C « 

ADR 

ALLEOT 

ASSEMH" 

ATTN:i 

AlfORPM 

AUTODM 

^ ^DTM 

B.-UHSU 

BFSEQ 

BKSEQO 

EESEQ1 

UFSEQ2 

BFSEQ3 

BFSEQ4 

BFSEQ5 

BFSE06 

BF5EQ7 

BFSEQ8 

BFSE09 

BF5E10 

BGNFLG' 

BINC 

biro 

BITOO > 
BIT01 ' 
BIT02 ' 
BIT03 • 
BIT04 • 
0I10S 
BIT06 
BIT07 ' 
BII08 • 
BIT09 
BIT1 
BIT 10 
BIT11 

Binr 

Bl'113 
HTU4 
B1T1S 

bit:* 

BIT3 
BIT4 
BITS 
BIT6 
BIT/ 
BIT8 

bit<> 
Bor 

BORERS 

BPCRM 

HRCPK 
BRFCNT 
BMK .C 
BTADDR 
BTMSU1 



100000 
000020 
003531 
000010 
004417 
004 727 
023450 
03073 r 

oo?ni 

024616 
024642 
024714 
024726 
025020 
0250/2 
025134 
02S206 
025240 
0252 72 
025324 
025346 
003464 
015722 
000001 
000001 
000002 
0OO0O4 
OOOOIO 
000020 
000040 
OOOIOO 
000200 
000400 
0010O0 
000002 
002000 
0O400O 
01OOOO 
020000 
040000 
1000O0 
000004 
000010 
000020 
000040 
000100 
000200 
0OO400 
OOIOOO 
0OO400 
015146 
051174 
002330 
003424 
004000 
002550 
014/54 



BTMSG2 


015021 




BTMSG3 


0150 76 




BTPT 


OC3516 


G 


bTRPT 


020446 




BTO 


003000 


G 


BT1 


003052 


G 


BT2 


003124 


G 


BT3 


003176 


G 


BYTECO- 


000403 




CHAR 


002220 


G 


CHARM 


031141 




CHGELG 


002217 


G 


CHGM 


031122 




CHKERR 


012160 


G 


CH.EAI- 


000040 


G 


CH. ERI- 


000020 


G 


CH. ESS- 


000200 


G 


CKOAfA 


016664 


G 


CKOCNT 


017274 




CKDFF 


017276 




CKHAE 


017706 


G 


CKHRIN 


017774 




CLN 


101012 


G 


CLRERR 


011656 


r; 


CLRFLG 


002204 


r. 


CLRM 


030600 




CMOAC 


007600 


G 


CMOASC 


003732 


G 


CMDO 


002222 


G 


CMDLG 


003434 


G 


CMDPKh 


004164 


G 


CMOPKT 


002314 


G 


CM05AV 


003430 


G 


CMOSEQ 


003542 


G 


CM0SE2 


003552 


G 


CMOTBL 


003644 


G 


CMDWRD 


003426 


G 


CHO.CO- 


0OOO01 


G 


CM0.C1- 


000002 


G 


CMO.C2- 


000004 


G 


CMO.C3- 


000010 


G 


CM0.C4- 


000020 


G 


CMD2M 


031166 




CM03M 


031240 




CM04M 


031246 




CM05M 


031254 




CM06M 


031262 




CM07M 


031270 




CM08M 


031276 




CMPDAT 


003410 


G 


CNTBGN- 


002560 




CNTF.NO- 


003330 




CNTl.EN- 


000550 


G 


CODELM 


004054 


G 


couNrt- 


050416 




CP .ADH- 


000004 


G 


CP^AUL* 


000002 


G 



CP.CMO 

CP.CNT 

CRLF 

CRLFSP 

CTCC 

CVC.C 

CIAU 

CIAUTO 

CIBRK 

CIOSEG 

CIBSUB 

CICEFG 

CICLCK 

CICLEA 

CICLOS 

CICLP1 

CICVEC 

CIDCLN 

CIDOOU 

CIDRPT 

CIDU 

CIEDIT 

CIERDF 

CIERHR 

CIERRO 

CIERSF 

CIERSO 

CIESCA 

CIESEG 

CIESU6 

CIETST 

CIEXIT 

CIGETB 

CIGETW 

CICMAN 

CIGPHR 

CIGPLO 

CIGPRI 

CIINIT 

CIINLP 

CIMANI 

CIMEM 

CtMSG 

CI OPEN 

CIPNTB 

CIPNTF 

CIPNTS 

CIPNTX 

CIQIO 

CIRDBU 

CIREFG 

CIRE5F 

C IRE VI 

CIRM A 

CIRPT 

CIStKi 

CiSPRl» 



000000 
000006 
005275 
005300 
003456 
040000 
000052 
000061 
000022 
000004 
000002 
000045 
000062 
000012 
000035 
000OO6 
000036 
000044 
000051 
000024 
000053 
000003 
000055 
000056 
000060 
000054 
00005 7 
000010 
000005 
000003 
000001 
000032 
000026 
00002 i 
00004 3 
000042 
000030 
000040 
000011 
000020 
000050 
000031 
000023 
000034 
000014 
000017 
000016 
0000 IS 

0003 7 7 
00000 7 

00004 7 
00003 3 
000003 
000021 
00002S 
000046 
000041 



CISVEO 

CITPRI- 

DATARD 

DATAWT 

OATCNT- 

DATRAT 

OEVTBL 

DrPTBL 

DFTSCH- 

DIA 

DIABLK- 

DIACNT- 

DIAGMC- 

Dl'NT 

DINTM 

DLY 

DLY.C - 

DRI 

DROPDM 

DROPED 

DROPN 

DROPU 

DROPUA 

DRORTN 

DTAERM 

DTAER2 

DTAER3 

DTAER4 

DTAER5 

EK.CON- 

EF.NEW- 

EF.PWR- 

EF.RES- 

FF.STA- 

EINC 

END 

ENOERF- 

ENOFLG- 

ENOSP 

EN0SP1 

EN05P2 

F.OTFLG 

ERCVER 

ERLOG 

ERRREC 

ERS 

ERSFLG 

EVL 

EWMSG 

EWPRNT 

EUPT 

EWRTRY 

EXAl I 

l.XARTN 

FXCRTN 

EXCUTf 

EXPUOT 



000037 
000013 
003416 
003414 
010000 
003412 
002536 
002176 
000040 
100006 
003414 
000020 
000000 
002212 
030762 
000020 
000020 
100013 
004/00 
003527 
017622 
017402 
017532 
017610 
005460 
004 761 
005030 
005072 
005113 
000036 
000035 
000034 
00003 7 
000040 
015730 
1777/7 
003476 
003554 
030576 
030404 
030406 
003506 
002207 
0034 72 
003475 
1004.11 
003533 
000004 
012526 
002216 
031064 

012632 
006744 

00 7236 

0112 72 

010654 

003520 



ex sue 


00/240 


G 


EIEND > 


' 002100 




EILOAO- 


- 000035 




FATSM 


004455 


G 


FIRSTU 


017300 


G 


FMT.CO' 


■ 000040 


G 


KMT. CI- 


■ 000100 


G 


FTLCNT 


003320 


G 


FUNRM 


0044 35 


G 


FIAU ■ 


• 000015 




F$AUTO« 


* 000020 




FIBGN " 


■ 000040 




FICLEA^ 


* 00000 7 




FIDU « 


• 000016 




FIEND ■ 


■ 000041 




FIHARO" 


■ 000004 




FIHW • 


• 000013 




FIINIT" 


• 000006 




FIJMP * 


• 000050 




FIMOD ■ 


• 000000 




FIMSG • 


« 000011 




FIPROT- 


• 000021 




FIPUR « 


• 000017 




FIRPT ■ 


« 000012 




FISEG ' 


■ C00003 




FISOFT- 


- 000005 




FISRV • 


■ 000010 




FISUB ' 


• 000002 




F ISU • 


■ 000014 




FITEST> 


■ 000001 




GCMOA 


007654 


G 


GENPAT 


010264 


G 


GES 


• 100017 


G 


GETSTM 


005241 


G 


GIT 


010642 




GOUAIT 


011274 


G 


GSCPK 


002324 


G 


GICNTO 


■ 000200 




GIDELM' 


• 000372 




GIDISP 


- 000003 




GIEXCP 


■ 000400 




GIHILI 


• 000002 




GIL.0LI 


* 000001 




GINO 


■ 000000 




GIOFFS 


- 000400 




GI0FS1 


• 0003 76 




GfPRMA 


• 0O0001 




GIPRMO 


• 000002 




GfPRML 


• 000000 




GIRAOA 


• 000140 




GiRADB 


■ 000000 




GIRADO 


* 000040 




GIRAOL. 


- 000120 




G$RADO 


- 000020 




GIXFFR 


■ 000004 




GlitS ; 


» 000010 




HAt 


00220b 


G 



K14 
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SLQ 0179 



HAtM 

HA! TM 

HELP 

HERE 

HOE 

HRDCNT 

ibe 

iou 

ItR 

IE.C 

INITIO 

INI T 15 

INIT16 

INTFLG 

INTPRI 

IRE. 

1RFC 

IRECM 

IREM 

1SR 

IXE 

ISAU 

I * AUTO 

ISCLN 

ISDU 

ISHRD 

I UNIT 

ISMOO 

1S.1SG 

1SPR0T 

ISPTAB 

ISPWR 

ISRP1 

ISSEG 

1S5ETU 

i$sf r 

ISSRV 
IS SUB 

msT 

Jl.OC 
Jl OOP 
J MP 

JMPMSG 
JMPMS2 
JMP.C ' 
JSJMP > 
L.hNMSK 
t 01 
LCX. 

I OOPCT 
I OT 
I $ACP 

i.sapt 

LSAU 
I SAW I 
LSAUlQ 
LSCCP 



030646 

0041^4 

000000 

003340 

100000 

003310 

010000 

000040 

020000 

000200 

021664 

022104 

022124 

0034 76 

000340 

003526 

002210 

030714 

031005 

000100 

004000 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

00004 1 

00004 1 

000041 

000041 

00004 1 

00004 1 

00004 1 

00004 1 

003452 

003450 

000040 

51036 

0312 56 

000040 

0O016 7 

003436 

040000 

015436 

0035213 

OOOOIO 

002110 G 

002036 G 

025/10 (i 

0020/0 G 

0251b0 (i 

002106 G 



LSCLEA 

LSCO 

LIDEPO 

LSDESC 

LSDESP 

L$DEVP 

LSDISP 

L$DLY 

l.iOTP 

LSDTYP 

LSDU 

LiDUT 

LSDVTY 

l.SEF 

LSENVI 

LSETP 

LSEXPl 

LSEXP4 

LSEXP5 

L SHARD 

LSHIME 

LSHPCP 

LSHPTP 

LSHW 

LSICP 

ISINIY 

LSLAOP 

LSLAST 

LSLOAD 

l.SLUN 

l.tllREV 

LSNAhE 

l.SPRIO 

LSPROT 

l.SPRT 

l.SREPP 

LIREV 

LSRPT 

LSSOET 

LSSPC 

LISPCP 

LSSP1P 

LSSTA 

i.SSU 

LSTEST 

l.STIMl. 

LSUNIT 

I 10000 

L 10001 

L 10002 

1.10003 

LI 0004 

L 10005 

I 10006 

1.1000/ 

L10010 

Liooia 



023602 
002032 
002011 
002140 
002076 
002060 
002124 
002116 
002040 
002034 
023644 
002072 
002166 
002052 
002044 
002102 
002046 
002064 
002066 
027750 
002120 
002016 
002022 
002176 
002104 
021664 
002026 
031510 
002100 
002074 
002050 
002000 
002042 
021656 
002 1 1 2 
002062 
002010 
020052 
030022 
002056 
002020 
002024 
002030 
002204 
002114 
002014 
002012 
002202 
002312 
005624 
006550 
006556 
006564 
006572 
006600 
021654 
023156 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
Ci 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
Ci 



L10013 

L10014 

L10015 

L10016 

L10017 

L 10020 

L10021 

L 10022 

L 10023 

L 10024 

L 10025 

L 10026 

1.1002/ 

L 10050 

L1003! 

L 10032 

L10033 

L10034 

L10035 

I 10036 

L10037 

L 10040 

L 10041 

L 10042 

L. 1004 3 

L10045 

M8R 

MfcNOM 

MISCFG 

MOO. CO' 

MOO. CI' 

M0D,C2< 

M00.C3* 

MOVMSG 

MSGCNT' 

MSGPKA 

MSGPKT 

MSGPKO 

MSGPK1 

MSGPK2 

MSGPK3 

MS. RFC' 



MS 
MS 
MS 
MS 



XSO< 
XS1 

x i ;,» 
xs.v 

C 1 



NCMO 
NCN1 
NCNU 

Nfcxrsp 

NEXTU 
NINUSE 

NOINTM 

NRDYM 

NSSRM 

NUMfiM 

NURTY1 



023446 
023642 

023 706 
024002 
025370 
024136 
024162 
024202 
024222 
024242 
024262 
024302 

024 322 
024342 
024 362 
024420 
024604 
026044 
026522 
026666 
027000 
027744 
030020 
071304 
03.514 
031520 
100012 
023054 
00353 7 
000400 
001000 
002000 
004000 
011726 
000016 
002506 
002340 
002356 
0023/4 
002412 
0024 30 
000004 
000006 
000010 
000012 
000014 
17/740 
003420 
0034 22 
0300/0 
017346 
17/7/4 
004503 
023544 
004 355 
051206 
Q0!ii55 



U 



OFLINM 

ONEFIL 

OPFLAG 

OPP.C 

OSAPTS 

OSAU 

OSBGN:; 

OIBGNS 

OSDU 

OSERRT 

OSGNSW 

OSPOIN 

OISETU 

PASCNT 

PATCH 

PATERN 

PATRO 

PATR1 

PATR2 

PATR5 

PATR4 

PATR5 

PATR6 

PATR7 

PATR8 

PATTBL 

PATTM 

PCMOWD 

PIRE 

PNT 

PRI 

PRIOO 

PR.I01 

PRI02 

PRI05 

PR 1 04 

PRI05 

PR 106 

PRI07 

PRXST 

PTCMOS 

PURFLG 

RAMOAT 

RAMOUM 

RAMER 

RAMFHR 

RAMHLD 

RAMIOP 

RAHLIN 

RAMM 

RAMPO 

RAMR5H 

RAMSI/ 

RAMURT 

RANH 

RANBC « 

RANCMD 



005211 
000001 
003540 
f'JOOOO 
000000 
000001 
000001 
000001 
000001 

oooooo 

000001 
000001 
000001 
003260 
031304 
003454 
010350 
010406 
010426 
010436 
010462 
010474 
010506 
010526 
010652 
010326 
051226 
003432 
002213 
001000 
002000 
OOOOOO 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
017624 
027616 
003535 
003346 
014050 
015/56 
005306 
003342 
005365 
005450 
051040 
0054 36 
003344 
003406 
002214 
003440 
155624 
025bb2 



RANDOM 


003521 


G 


RANP - 


000007 


G 


RANRD 


025712 




RAN'J 


003442 


G 


RANSC - 


052561 


G 


RANW 


026012 




RANWR 


025766 




RANUV 


026000 




RANI 


010644 


G 


RAN2 


010646 


G 


RAN3 


010650 


G 


RCVERM 


030672 




RDF 


104001 


G 


RDR 


104401 


G 


RECCNT 


003330 


G 


RECLOG 


0034/1 


G 


RECRED 


006546 




RECTAP 


006602 


G 


MECUO 


01201c? 




REPEAT* 


050236 




RERM 


004632 


G 


RETRY - 


050234 




RETRYC 


003464 


G 


REWRT 


015322 




RFBC 


002660 


G 


RFCERM 


004 336 


G 


RFREC 


002 760 


G 


RF-UNR 


002 770 


(J 


RL.EXM 


004 372 


G 


RNf 


125401 


G 


RNOPSC- 


1///40 


G 


RNR 


105401 


G 


RNYM 


004566 


G 


RPF 


105001 


G 


RPR 


125001 


G 


RPTCNT 


003466 


G 


HP r FLU 


003523 


G 


RPT1A 


020714 




RPT1B 


020/71 




RPT1C 


021042 




RPUD 


021113 




RPT1F 


021341 




RPT1F 


021217 




RPT1G 


0212/0 




RPT1I 


021460 




Rpru 


0213/1 




RPT1K 


021451 




RRANV 


002205 


G 


RRBC 


002620 


U 


RRFXl. ■ 


000020 


G 


RRREC 


002 740 


G 


RRUNR 


002 750 


G 


RRVM 


050617 




RSI 


001235 


G 


RS2 


00/622 


G 


RS5 * 


OOOOOO 


G 


RTLE 


014212 


U 



L14 
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5EQ 0180 



RTl.RTN 

RUCPK 

RWD 

RWERR 

R5SAVE 

SCCNT 

SCERM 

SCH 

SCHBK 

BCHCNT- 

SEQEND 

SETCH 

5F.TRU 

SETUP 

SEE 

SFPTBL 

SFR 

SRF 

SRR 

STAERM 

STAER1 

STAER2 

STAER3 

SIAER4 

STAER5 

STAER6 

51AFLG 

STREAM 

SVCGBL- 

5VCINS- 

SVCSUB- 

SVCTAG* 

T.VCTST- 

5WBFLG 

KWR.C - 

SYMO » 

5YMS - 

5ILSYM- 

7APCAP 

TCCRA 

TCCO 

TCC1 

7CC2 

ICC?. 

1CC4 

7CC5 

TCC6 

ICC/ 

TC2IMN 

TIMf.l 

I IMt ? 

TOERM 

TOOMM 

THAPD4 

TRAP4 

ISAM 



014346 
002334 
102010 
003473 
003460 
003270 
004312 
140004 
002446 
000010 
003632 
006700 
006724 
007706 
105010 
002204 
105410 
104010 
104410 
005626 
006140 
006316 
006375 
006433 
006453 
006262 
006232 
003534 
003532 
000000 
000001 
000000 
000000 
000000 
005524 
010000 
00000 / 
00000 7 
OlOOOO 
021571 
012612 
012740 
012762 
013000 
013146 
013170 
013670 
0137/2 
014026 
013144 
003444 
003446 
0042/1 
004542 
005536 
02 3574 
004520 



TSBA - 

T5C.EC- 

TSC.TO 

TSDB 

TSSR 

TSSREG 

TSVCT 

TS.A16- 

TS.A17- 

TS.N8A- 

TS.NXM- 

TS.OFL- 

TS.RMR- 

TS.SC - 

TS.SPE- 

TS.SSR- 

TS.UPE* 

TS4AUR 

TS4CL 

TS4INT 

TS4IN0 

TS4IN1 

TS4IN2 

TS4IN3 

TS4VCT 

T$ARGC 

TICODE 

TIERRN 

TIEXCP 

TIFLAG 

TIFREE 

TIGMAN 

TIHILI 

TILAST 

TILOII 

TILSYM 

1ILTN0 

TINES r 

TINSO 

TIN51 

TIN52 

TIPCNT 

TIPTAB 

TIPTHV 

TIPTNU 

Ti r .AVl 

TISEGI 

TI51ZE 

TISUBN 

1 I 1 AGL 

TITAGN 

T I TEMP 

UTEST 

TITSTM 

7I151S 

TllAU 



002456 
177717 
177761 
002456 
002466 
003462 
002476 
000400 
001000 
002000 
004000 
000100 
OlOOOO 
100000 
020000 
000200 
040000 
027774 
002526 
002516 
00655? 
006560 
006566 
006574 
030011 
000001 
023004 
000001 
000000 
000041 
031520 
OOOOOO 

ocooio 

000001 
000000 
OlOOOO 
000006 
177777 
000000 
000005 
000002 
000000 
010044 
000001 
000001 
17 777 7 
177777 
000004 
000000 
17777/ 
010046 
000000 
000006 
1 ///// 
OOOOOl 
010016 



l> 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 

G 
G 
G 
G 
G 
G 



TIIAUT- 


010013 




TIICLE* 


010014 




TIIDAT- 


010045 




THOU - 


■ 010015 




TIIHAR" 


■ 010041 




TIIHW • 


■ OlOOOO 




TMINI- 


• 010012 




TMMSG- 


• 010003 




TMPC « 


• OOOOOl 




TMPRO- 


- 010011 




TIIPTA- 


■ 010044 




TIIRPT' 


• 010010 




TMSOF. 


' 010042 




TIISRV- 


• 010007 




TMSUB* 


• 010033 




TIISU ■ 


• 010001 




T**TES> 


■ 010040 




Tl 


024004 


G 


T1SUB 


003530 


G 


Tl.l 


02401*1 




T1.10 


024344 




Tl.U 


024 364 




T1.12 


024450 




T1.2 


024140 




T1.3 


024164 




Tl.4 


024204 




T1.5 


024224 




T1.6 


024244 




T1.7 


024264 




T1.8 


024 304 




T1.9 


024324 




r:> 


025372 


G 


T3 


026046 


G 


T4 


026524 


G 


T5 


026670 


G 


T5WE0T 


027640 




T6 


027002 


G 


UAM 


• 000200 


G 


UNI. 


■ 100412 


G 


UNHEC 


0034 74 


G 


URERM 


004654 


G 


VFEXC 


016254 


G 


VFISU 


016540 


G 


VFYCN7 


003300 


G 


VFYDAT 


016142 


G 


VFYFLG 


003522 


G 


VFY.C 


- 000100 


G 


Ul.KZRO 


010442 




URBC 


002560 


G 


WRECL 


- 000020 


G 


URITEM 


017776 


G 


WRR 


- 105005 


G 


URREC 


002720 


G 


WRI 


- 104005 


G 


WRTY 


014350 


G 


WRTYCT 


003250 


G 



WRTYER 

WRTYFG 

WRUNR 

USSR 

WTM 

WTR 

WTV 

WTVERM 

WTYBRF 

WTYCMO 

WTYWRD 

XIALWA 

XIFAL5 

XIOFFS 

XITRUfc 

XO.BOT 

XO.EOT 

XO.LET 

XO.ONL 

XO.RLL 

XO.RLS 



XO 
XI 
X2 
X3 



TMK 
EWN 
OPM 
DCK 
X3.RNY 
ZROPAT 
IBGNLE 
IBRJMP 
IBSKO 
IBSK1 
IBSK2 
• ERf'LG 
IF I AND 
IFIBAD 
IFIBLA 
IF I C As 
IFIDEC 
IFIDO 
IFIFAL 

$r$Goo 

IF I IF 

IFIINC 

IFILOO 

IF * NAM 

IFINO 

IFIOR 

IFIRTI 

•FIRTN 

IF *SEL 

IFITHE 

IFITRU 

IF IUNT 

If IUHI 

IF* YES 

IIFLEV* 



003470 
003467 
002730 
011672 
100011 
101011 
104105 
004246 
01473? 
014726 
014730 
000000 
000040 
000400 
000020 
000002 
OOOOOl 
020000 
000100 
OlOOOO 
040000 
100000 
000010 
100000 
000010 
157400 
010412 
000002 
177777 
050234 
050236 
V 504 16 
000400 
000310 
000401 
0001/0 
000150 
000220 
000340 
000405 
00040C 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 



IISKO 

IISK1 

IISK2 

IISK3 

I1SK4 

II5K5 

IISK6 

ILOCTA 

ILSTIN 

IL.STTA 

ILVTAG 

•NESTL 

INSKO 

INSK1 

INSK2 

INSK3 

INSK4 

INSK5 

IN5K6 

5 GAVE 

ISAVLE 

ISELLE 

ISSKO 

ITAGLE 

ITAGNU 

I TEMP 

ITSKO 

IT SKI 

ITSK2 

ITSK3 

ITSK4 

ITSK5 

ITSK6 

ITSK7 

IU 

IIARGC 

IIBYTE 

I $ CASE 
HOST 
IIELOC 
IIERFL 
IIFLAG 
IJFROM 
*IINH 
IH.OC 
lll.OCN 
IIREG 
SIRETU 
IIRTN1 
IIRTN2 

I I SRC 
IITGSV 
IITGS1 
JiTii'i? 
IITO 

III TAG 



OOOOOl 
OOOOOl 
OOOOOl 
OOOOOl 
OOOOOl 
OOOOOl 
OOOOOl 
177777 
OOOOOl 
0000C1 
050416 
177777 
000120 
000120 
000110 
000110 
000110 
000110 
000110 
OOOOOl 
177777 
17777 7 
050473 
177777 
050511 
000402 
050472 
0504 73 
0504 74 
0504 75 
050510 
050507 
050503 
050505 
000403 
000000 
000403 
000000 
000000 
000402 

oooooo 

OOOi'Ol 

000000 
000403 
027155 
000000 
17 7777 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 

050000 
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SYMBOL TABLE 

. ABS. 031520 000 
000000 001 
ERRORS DETECTED.- 

VIRTUAL MEMORY USED: 62895 WORDS C 246 PAGES) 
DYNAMIC MEMORY: 19748 WORDS ( 75 PAGES) 
ELAPSED TIME: 00:38:39 
CZTKIA. BIN, CZTKIA/-SP/CR- SVC/ML, SPMACJ/ML .CZTKIA 



SEQ 0181 





...81 


GLOBAL 


DATA SECTION 


. 


..B5 


GLOBAL SUBROUTINES S. 


...89 


TEST 2: DATA RELIABI 


. • » D 15 




,,,C1 


GLOBAL 


DATA SECTION 


. 


..C5 


GLOBAL SUBROUTINES S 


...C9 


TEST 3; WRITE AND RE 


...C13 




.,.01 


GLOBAL 


DATA SECTION 


. 


..D5 


GLOBAL SUBROUTINES S 


...D9 


TEST 3t WRITE AND RE 


...013 




. . .El 


GLOBAL 


OATA SECTION 


♦ 


..E5 


GLOBAL SUBROUTINES S 


,..E9 


TEST 3: WRITE AND RE 


...E13 




., .Fl 


GLOBAL 


DATA SECTION 


. 


,.F5 


GLOBAL SUBROUTINE!: 3, 


...F9 


TEST 3: WRITE AND RE, 


.,.F13 




. . .Gl 


GLOBAL 


DATA SECTION 


1 . 


,.G5 


GLOBAL SUBROUTINES S 


...G9 


TEST 4: WRITE COHPAT 


* . »G13 




...HI 


GLOBAL 


TEXT SECTION 


. 


,.H5 


GLOBAL SUBROUTINES S 


. ..H9 


TEST 4t WRITE COMPAT 


...H13 




...11 


GLOBAL 


ERROR REPORT 




..15 


GLOBAL SUBROUTINES S 


.. .19 


TEST 5 j REAO COHPAT 


...113 




...Jl 


GLOBAL 


ERROR REPORT 




..J5 


GLOBAL SUBROUTINES S, 


• • * *Jw 


TEST 6: EXECUTE OPER 


. . .J13 




...Kl 


GLOBAL 


ERROR REPORT 




..K5 


RAHER - REfD AND DIS 


...K9 


TEST 6: EXECUTE OPER 


...K13 




...LI 


GLOBAL 


SUBROUTINES 


s! 


..L5 


RAHEP - READ AND DIS 


...L9 


T-ST 6: EXECUTE OPER 


...L13 




. . .Ml 


GLOBAL 


SUBROUTINES 


s. 


. .M5 


RAHEP - REAO AND DIS 


...M9 


TEST 6: EXECUTE OPER 


...M13 




...Nl 


GLOBAL 


SUBROUTINES 


s. 


,,N5 


RWrER - READ AND DIS, 


» • *N9 


TEST 6 j EXECUTE OPER 


• • .N13 




...B2 


GLOBAL 


SUBROUTINES 


s. 


. .86 


RAMER - READ AND DIS 


...BIO 


SOFTWARE PARAMETER C 


...B14 




.. .C2 


GLOBAL 


SUBROUTINES 


S. 


..C6 


RAHER - REAO AND DIS, 


...CIO 


SOFTWARE PARAMETER C 


...C14 




. , .02 


GLOBAL 


SUBROUTINES 


s. 


..D6 


RAHER - READ AND DIS, 


...D10 


SOFTWARE PARAHETER C 


...D14 




. . .E2 


GLOBAL 


SUBROUTINES 


s. 


..E6 


RAHER - REAO AND DIS 


.. .E10 


SOFTWARE PARAMETER C 


...E14 




.. .F2 


GLOBAL 


SUBROUTINES 


s. 


..F6 


RAHER - READ AND DIS 


. . .F10 


SOFTWARE PARAHETER C 


...F14 




., .G2 


GLOBAL 


SUBROUTINES 


s. 


. .G6 


RAHER - READ AND DIS 


...G10 


SOFTWARE PARAHETER C. 


...G14 




...H2 


GLOBAL 


SUBROUTINES 


s. 


. »H6 


RAHER - READ AND DIS 


. . .H10 


SOFTWARE PARAHETER C. 


...H14 




...12 


GLOBAL 


SUBROUTINES 


s. 


..16 


RAHER - READ AND DIS 


...110 


HARO COOED P-TBL 


...114 




...J2 


GLOBAL 


SUBROUTINES 


s. 


► . , «J6 


RAHER - READ AND DIS 


.. .J10 


SYMBOL TABLE 


...J14 




...K2 


GLOBAL 


SUBROUTINES 


s. 


..K6 


RAHER - READ AND DIS 


. . .K10 


SYHBOL TABLE 


...K14 




...L2 


GLOBAL 


SUBROUTINES 


s. 


. ..L6 


RAHER - REAO AND DIS 


...HO 


SYMBOL TABLE 


...L14 




...M2 


GLOBAL 


SUBROUTINES 


s. 


. . M6 


REPORT COOING SECTIO 


.. .M10 


SYMBOL TA8LE 


♦..M14 




...N2 


GLOBAL 


SUBROUTINES 


s. 


. . .N6 


REPORT COOING SECTIO 


. . .N10 








...B3 


GLOBAL 


SUBROUTINES 


s. 


. ..B7 


REPORT CODING SECTIO 


...Bll 








...C3 


GLOBAL 


SUBROUTINES 


s. 


...C7 


INITIALIZE SECTION 


...Cll 








...03 


GLOBAL 


SUBROUTINES 


s. 


...07 


INITIALIZE SECTIGN 


...Oil 








...E3 


GLOBAL 


SUBROUTINES 


s. 


. ..E7 


INITIALIZE SECTION 


...Ell 








...F3 


GLOBAL 


SUBROUTINES 


s. 


. .,F7 


INITIALIZE SECTION 


...Fll 








...G3 


GLOBAL 


SUBROUTINES 


s. 


. ..G7 


INITIALIZE SECTION 


...Gil 








...H3 


GLOBAL 


SUBROUTINES 


s. 


. ..H7 


INITIALIZE SECTION 


.. .Mil 








...13 


GLOBAL 


SUBROUTINES 


s. 


...17 


INITIALIZE SECTION 


...111 








...J3 


GLOBAL 


SUBROUTIfCS 


s. 


. ..J7 


AUTO DROP SECTION 


.. ,J11 








,..K3 


GLOBAL 


SUBROUTINES 


s. 


...K7 


AUTO DROP SECTION 


. ..Kll 








...L3 


GLOBAL 


SUBROUTINES 


s. 


. ..L7 


AUTO DROP SECTION 


.. .Lll 








ri3 


GLOBAL 


SUBROUTINES 


s. 


. ..M7 


CLEANUP COOING SECTI 


...Mil 








...N3 


GLOBAL 


SUBROUTINES 


s. 


. ..N7 


DROP UNIT SECTION 


.♦.Nil 








...84 


GLOBAL 


SUBROUTINES 


s. 


...Be 


ADO UNIT SECTION 


...B12 








...C4 


GLOBAL 


SUBROUTINES 


s. 


. . .06 


AOO UNIT SECTION 


...C12 








...04 


GLOBAL 


SL^ROUTINES 


s. 


...06 


TEST 1: BASIC FUNCT 


■ . .012 






PRObHAtt Ht-'ADH? 


. . F.4 


GLOBAL 


SUBROUTINES 


s. 


. ..E6 


TEST 1: BASIC FUNCT 


.. .E12 






DISPATCH lABLfc 


. . J 4 


GLOBAL 


SUBROUTINES 


s. 


. ..F6 


TEST It BASIC FUNCT 


F12 






DEFAULT HAfiOWARE P-T. 


. . .G4 


GLOBAL 


SUBROUTINES 


s. 


...G6 


TEST 1: BASIC FUNCT 


...G12 






SOFTWARE P-TAflLE 


• * . H4 


GLOBAL 


SUBROUTINES 


s. 


. • »H8 


EST li BASIC FUNCT 


.. .H12 






SOFTWARE P- TABLE 


...14 


GLOBAL 


SUBROUTINES 


s. 


...16 


EST It BASIC FUNCT 


. . .112 






GLOBAL EQUATES SECTI. 


...vM 


GLOBAL 


SUBROUTINES 


s. 


. ..J6 


EST 1: BASIC FUNCT 


. ...J12 






GLOBAL EQUATES SECTI. 


,..K4 


GLOBAL 


SUBROUTINES 


s. 


...K6 


''EST 1: BA5IC FUNCT 


K12 






GLOBAL EQUATES SECTI. 


...L4 


GLOBAL 


SUBROUTINES 


S. 


...IS 


EST 2: DATA RELIA6I 


. , .112 






GLOBAL EQUATES SECTI. 


...M4 


GLOBAL 


SUBROUTINES 


s. 


...>6 


TEST 2: DATA RtLlABI 


. . .M12 






GLOBAL DATA SECTION ♦ 


* » »N4 


GLOBAL SUBROUTINES S, 


» t ^4$ 


f EST 2; Wt\A RELIABX 


...JU2 







